

FUN AND GAMES 
WITH THE COMPUTER 


Edwin R. Sage 




mnun: 













If 

0£?I.(j>4£. 

S 

Cx\ 

XP 


1 


af 

// 


PROPERTY of u. 


s. ARMY 


rectalta, Ubwr 



FUN AND GAMES 
WITH THE COMPUTER 

Edwin R. Sage 

Middlesex School 
Concord, Massachusetts 

E 

ENTELEK 

42 Pleasant Street / Newburyport, Massachusetts 01950 





ISBN Number 87567-075-X 
Printed in the United States 
Copyright © 1975 by Albert E. Hickey 
Newburyport, Massachusetts 01950 
All Rights Reserved 


No part of this book may be reproduced in any form or by any 
means, electronic or mechanical, including photocopying, or by 
any electronic data processing system, without the written 
permission of the publisher. 


ACKNOWLEDGEMENTS 


My sincere thanks go to Albert Hickey of ENTELEK for 
editing the text; to Jean Stritter and John Davidson of Mid¬ 
dlesex School for teaching sections of the original manu¬ 
script and making creative suggestions for its improvement; 
to William Amory of MITRE Corporation for reading the 
manuscript; and to my wife, Kris, for her many hours of work 
with me from start to finish. Finally, thanks go to those past 
and present Middlesex students whose enthusiasm for com¬ 
puter games inspired this book. 


Additional ENTELEK publications; 

Problem Solving with the Computer 
by Edwin R. Sage 

ENTELEK Computer Based Math Lab 
by Norman S. Katz 

Programmed Instruction Guide, 3rd edition 

Information may be obtained from: 

ENTELEK 

Newburyport, Massachusetts 01950 




PREFACE 
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Games, I have found, are an excellent medium for 
teaching computer programming. First, they are fun to 
play. Second, it is easier to program a game than it is to 
program the solution to a math problem. That’s because 
you generally know the rules of the game better than you 
know the rules for solving the math problem. In fact, 
you do not need any mathematical background at all to 
learn computer programming by this method. 

This book teaches BASIC, a language commonly 
used to communicate with computers. BASIC (an ac¬ 
ronym for Beginner’s All-Purpose Symbolic Instruction 
Code) is easy to learn, easy to use, and available on 
many computers. In Chapter 1 you learn some elemen¬ 
tary words in the BASIC language, two programming 
techniques called looping and branching, and some 
ways to fix your program when it doesn’t work. 

In Chapter 2 you program your first game, one in 
which the computer uses its random number generator 
to “think” of a mystery number which you try to guess. 
You then go on to add refinements to your program, 
including a variety of ways to repeat the game, a method 
for counting the number of tries you need to hit upon the 
mystery number, and a technique by which the compu¬ 
ter gives you helpful hints, such as ‘ ‘too high’ ’ and ‘ ‘too 
low. ’ ’ In the end, you discover a strategy which reduces 
by a third the average number of guesses you need to hit 
upon the mystery number. 

In Chapter 3 we turn the tables. You pick the 
mystery number and the computer tries to guess what it 
is. It quickly becomes apparent that the computer can¬ 
not remember what numbers it has already tried without 
success. To make the computer more efficient, you 
teach it how to use a “check list.” This is done first by 
using many IF-THEN statements to prevent the compu¬ 
ter from guessing the same number twice. A second 
method uses a subscripted variable, which enables us to 
reduce the number of steps in the program from 59 to 
14. 

You then go on to add to your new program the 
same refinements you added to the program you de¬ 
veloped in Chapter 2. After making these additions, you 
further sharpen the computer’s ability to guess your 
mystery number by teaching it each of the two strategies 
you discovered in Chapter 2. The first is called the 
Random Method and the second the Midpoint Method. 
As the final step in the chapter, you compare the effi¬ 
ciency of the two strategies. To do this, you first play 
five games in which the computer uses the Random 
Method and five games in which it uses the Midpoint 
Method. Five games are not enough to obtain truly 
reliable results, however. It would be better to play a 




thousand games each way. But that would take a human 
player about 70 hours, so you teach the computer to play 
your role as well as its own, and thereby cut the playing 
time to about ten minutes. 

Chapter 4 presents a change of pace. Instead of 
teaching the computer to play games, you teach it to 
draw pictures. More important, you learn some addi¬ 
tional words in BASIC: TAB, READ, DATA, GO SUB 
and RETURN. You are also introduced to the concept 
of a subroutine and get a lot more experience building 
loops using the FOR-NEXT command. 

In Chapter 5, you program the computer to play Big 
Wheel, a game in which you bet on the number at which 
a spinning carnival wheel will come to rest. The wheel 
you use will be of your own design. You divide it into 
several pie-shaped pieces, all of equal area, use the 
random number generator to pick the number at which 
the wheel is to stop, and construct the pay-off table. 

Once you get the wheel to spin, you add a variety of 
features to your program. One feature, for example, 
prevents a player from betting more money than he has 
in his pocket. Finally, you learn how to document a 
program, including the use of the BASIC word REM for 
“remark” to identify the location of each feature in the 
program. 

In Chapter 6, you again use the random number 
generator, this time to “toss” coins and “roll” dice. In 
the process you learn how to determine the various out¬ 
comes and the probabilities of their occurrence. These 
fundamental operations are then incorporated in two 
game programs, one called Two Coin and the other 
Craps. 

Chapter 7 is about card games. After teaching the 
computer to ‘ ‘deal’ ’ from a deck of cards, you teach the 
computer to play three card games, the most popular of 
which is Blackjack or Twenty-one. 

This is a book for the novice. To insure that you do 
not close the book with the false impression that the 
computer is limited to games of chance and strategy, we 
conclude with a guide to further exploration of 
computer applications in mathematics, science, 
business and education. 

Fun and Games with the Computer is designed to 
be used in a one-semester course. As you read the first 
few chapters you’ll discover that you can grasp the 
essentials of computer programming even if you do not 
have immediate access to a computer. Sooner or later, 
however, you’ll probably want to try your skill on a real 
computer. Most of the games in the text can be run on a 
minimum 4K computer and the remainder on a some¬ 
what larger 8K system. You will find it easier to do the 
work outlined in this book if your computer system 
provides on-line program storage on disk or magnetic 



tape, avoiding the requirement to dump and reload your 
programs from paper tape. In any case, you’ll also need 
a manual which describes the operation of your particu¬ 
lar computer and the dialect of BASIC your system 
understands. 

This book can also be used as a supplementary text 
or workbook to provide dynamic on-line experience 
with a computer as part of a course in computer literacy, 
a course which describes hardware, software, and ap¬ 
plications. 

The book is also a useful adjunct to a conventional 
course in probability and statistics, giving the student 
direct access to probabalistic events employing large 
numbers. 

Despite the foregoing references to mathematics, 
statistics and computer literacy, the book does not de¬ 
mand a background in mathematics. It may seem like a 
bold statement, but any teacher who has a curiosity 
about computers and adequately prepares himself 
should be able to teach the course successfully. 

Edwin R. Sage 
March 15, 1975 
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***** THIS ISA FABULOUS PROGRAM ***** 

YOU TYPE IN <A NUMBER AND I RESPOND WITH A MESSAGE* 
HOW MANY MESSAGES WOULD YOU LIKE TYPED? 5 
HERE WE GO* FOLLOW INSTRUCTIONS. 


TYPE 1*2*0R 3? 1 
COMPUTERS ARE FUN. 

TYPE I . 2.OR 3? 2 
I'M FASTER THAN YOU. 

TYPE 1«2*0R 3? 3 
I LIKE YOU. 

TYPE I * 2.OR 3? 4 
FOLLOW DIRECTIONS DUMMY. 

TYPE i > 2.OR 3? 3 
I LIKE YOU. 

TYPE 1*2«0R 3? I 
COMPUTERS ARE FUN. 


THAT'S ALL FOLKS 
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MASTERING YOUR OBEDIENT 
SERVANT 

1.1 WRITING THREE EASY PROGRAMS 

An easy and fun way to begin programming is to 
write little programs which instruct the computer to type 
out a message. Let’s begin with the message YOU’RE 
THE GREATEST. Later on you’ll have a chance to 
program the computer to type out your favorite mes¬ 
sage. 

Before getting into the details of your first program, 
let me describe briefly the concept of a program. A 
program is essentially a set of statements or instructions 
which are to be executed by the computer. The instruc¬ 
tions are written in a language which the computer can 
understand. There are many languages by which hu¬ 
mans can communicate with computers. In this book we 
will use the BASIC language. BASIC is an acronym for 
Beginner’s All-Purpose Symbolic Instruction Code. It 
uses ordinary English words, such as LET, PRINT, GO 
TO, STOP, END, READ, DATA, INPUT, FOR, 
NEXT, IF-THEN, to trigger particular operations by 
the computer. Each chapter in this book will introduce 
you to a few words in BASIC until you have mastered 
the complete BASIC vocabulary. Now back to writing 
your first program. 

In BASIC each line of a program must begin with a 
whole number known as the line number. The line 
number is followed by a command consisting of one or 
two English words, such as LET or PRINT. Some 
commands, such as STOP and END, are sufficient by 
themselves, but most must be followed by additional 
information. Using these rules to structure each line, 
let’s write the program to accomplish the objective 
given above. Write the program on paper before typing 
it into the computer. 

First we need a line number. Let’s use 1. Next we 
need a command. To instruct the computer to type out 
the message YOU’RE THE GREATEST we use the 
English word PRINT. Following the command you 
must insert, in quotes, the text of the message itself: 
“YOU’RE THE GREATEST.’’ The first line in your 
program looks like this. 

Statement 

1 PRINT “YOU’RE THE GREATEST.’’ 

/ \ 

Line No. Command Message 
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GREATEST/1 


FABULOUS/1 


FABULOUS/2 


When the computer executes this statement, it will type 
out the string of characters between the quotes. If you 
misspell one of the words in the message, it will be 
typed back with the misspelling. The computer does not 
know the meaning of what you’re trying to say; it is only 
your obedient servant. 

The message is to be typed out only once. Since the 
computer is not very bright, we must tell it when its job 
is done. We use the command END, as follows. 

2 END 

Once typed, the complete two-line program will look 
like this. 

PROGRAM 1 PRINT "YOU*RE THE GREATEST." 

2 END 

When you want the computer to carry out the two steps, 
you type RUN. 

RUN 

OUTPUT YOU'RE THE GREATEST. 

Suppose you want to insert ahead of the message 
YOU’RE THE GREATEST another message which 
says THIS IS A FABULOUS PROGRAM. But you’ve 
already used line 1. You must retype the program 
GREATEST/1 as follows: 

PROGRAM 1 PRINT "THIS ISA FABULOUS PROGRAM." 

2 PRINT "TOU•RE THE GREATEST." 

3 END 

OUTPUT THIS IS A FABULOUS PROGRAM. 

TOU•RE THE GREATEST. 


The old lines 1 and 2 were automatically erased in the 
computer and replaced by the new lines 1 and 2. 

You’ll find that many times you would like to insert 
one or more lines between two others. To make such 
insertions without retyping existing lines, it is much 
better to select as the original line numbers a sequence 
of numbers such as 5, 10, 15, 20, . . . or 10, 20, 30, 
40. . . . Then you can insert one or more new lines be¬ 
tween two old lines. Incidentally, you don’t have to type 
in the lines of a program in numerical order. For exam¬ 
ple, the last program could have been typed like this. 

PROGRAM 2 PRINT "YOU*RE THE GREATEST." 

3 END 

1 PRINT "THIS IS A FABULOUS PROGRAM." 

When it comes time to run your program, the computer 
will execute the program steps in numerical order. 

OUTPUT THIS IS A FABULOUS PROGRAM. 

YOU•RE THE GREATEST. 
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To erase lines 1, 2 and 3, in fact all previous program 
lines, type SCRATCH. Here is the program 
GREATEST/1 rewritten using line numbers 10 and 20: 

10 PRINT "YOU * RE THE GREATEST.” PROGRAM GREATEST/2 

20 END 

YOU’RE THE GREATEST. OUTPUT 

To add the message THIS IS A FABULOUS PRO¬ 
GRAM before line 10, select a line number between 1 
and 9 inclusive, say 5, and type in: 

5 PRINT “THIS IS A FABULOUS PROGRAM.” 

You now have the following new program. 

5 PRINT "THIS ISA FABULOUS PROGRAM.” PROGRAM FABULOUS/3 

10 PRINT "YOU * RE THE GREATEST.” 

20 END 

1HIS IS A FABULOUS PROGRAM. OUTPUT 
YOU’RE THE GREATEST. 

Look at the output. To separate the two messages, you 
can direct the computer to skip a line between the first 
and second lines of the output by inserting 

7 PRINT 

Used alone, the command PRINT will cause the compu¬ 
ter to print a blank line, as shown here. 

5 PRINT ’’THIS IS A FABULOUS PROGRAM.” PROGRAM FABULOUS/4 

7 PRINT 

10 PRINT "YOU’RE THE GREATEST.” 

20 END 

THIS IS A FABULOUS PROGRAM. OUTPUT 
YOU’RE THE GREATEST. 

So much for our first program. Now let’s instruct the 
computer to type the same message many times. 

Write a program that instructs the computer to type 
out the message YOU’RE THE GREATEST endlessly. 

Here is the new program accompanied by a sample 
output. 

PROGRAM 

10 PRINT "YOU’RE THE GREATEST.” 

20 GO TO 10 
30 END 


OUTPUT GREATEST/ENDLESS 

YOU’RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU'RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU’RE THE GREATEST. 
YOU’RE T 
tC 
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GREATEST/7 


As you will quickly discover, the message YOU’RE 
THE GREATEST continues to be typed out until you 
signal the computer to stop. I signal my computer to 
stop by pressing the “control” key and the letter C, a 
combination called CONTROL C. This causes the 
computer to stop, but only after it prints the 
symbols t C (read “up arrow C”), as shown in the 
last output. How do you signal your computer to stop 
running a program? 

The new program GREATEST/ENDLESS contains a 
new command, GO TO. GO TO is used to transfer 
control of the computer from one line in a program to 
another. It is always followed by the number of the line 
to which control is being transferred. Of course the line 
to which control is being transferred must exist in the 
program. For example, if we had mistakenly typed 20 
GO TO 5, the computer would reply with an error 
message equivalent to LINE 5 UNDEFINED. 

In the program GREATEST/ENDLESS, after print¬ 
ing the message, the computer moves to the next line, 
line 20, sees the GO TO 10 command, and transfers 
control back to line 10. This process continues endlessly 
until the human intervenes, the power fails, or the 
computer “crashes. ’ ’ So much for our second program. 

Now let’s get the computer to type out the same 
message a prescribed number of times, in this case 
seven. 

Write a program that instructs the computer to type 
out the message YOU’RE THE GREATEST seven 
times. 

PROGRAM 10 LET C*0 

20 PRINT "YOU*RE TrtE GREATEST♦ M 
30 LET OOI 
40 IF C<7 THEN 20 
50 END 

OUTPUT YO f J # RE THE GREATEST. 

Y0 T J • RE THE GREATEST. 

YOU•RE THE GREATEST. 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST. 

To understand the construction and operation of this 
program, visualize a mechanical counter. The counter 
has two buttons. One button, when pressed, adds 1 to 
whatever value is in the display window of the counter 
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at that time. The second button is a “reset” button 
which allows the user to set the counter back to zero. 
Here is a picture of the counter: 



RESET BUTTON 


How would you use such a counter in real life? 
Suppose you wanted to count the number of people 
entering a theatre . You could stand at the door with your 
counter, having first made sure you had reset the 
counter to zero, and each time a person entered, depress 
the “count” button. After five people had passed, the 
number 5 would be in the window, and after twelve 
people had passed, 12 would be in the window. I think 
you have the idea. Well, we’re going to do the same 
thing with the computer. Using a program we’re going 
to set up a “counter” inside the computer to count the 
number of times the message YOU’RE THE 
GREATEST is printed. When the number in the 
“counter window” is 7, we know the message has been 
printed seven times. 


Here is how the computer imitates the mechanical 
counter. The computer can store numbers in its mem¬ 
ory . It will help if you imagine that a computer’s mem¬ 
ory looks like a set of post office boxes at the local post 
office. Each post office box has both a place for an 
identification label, i.e. the P.O. Box No., and a place 
to store your mail. In the computer, each box is labeled 
with a letter, and the contents is a number. The box 
labels are also called variables, a term used in mathema¬ 
tics to refer to a place holder for numbers. Here’s a 
picture of a twelve-box memory. 


LABELS 

VALUES 

LABELS 

VALUES 

LABELS 

VALUES 




In this particular program I’ll need only one box for a 
counter. I’ll label it C. Use as labels letters which help 
you remember the function of the variable. 


LABEL 

VALUE 
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C 

0 


To operate the counter, it must first be set at zero. 
This is easily done in BASIC by saying 10 LET C = 0. 
In the program GREATEST/7, this was our first instruc¬ 
tion to the computer. When the computer executes this 
step, a 0 is put in the storage box C. 


So much for line 10 which sets the counter at zero, or as 
we say initializes it at zero. The next statement is 20 
PRINT “YOU’RE THE GREATEST.’’ As soon as the 
message is printed, the “count button’’ should be “de¬ 
pressed.” The instruction to do this is contained in 30 
LET C = C +1. To the computer this means: let the new 
value of C be equal to the old value of C plus 1. 

After the message has been printed once, the contents 
of the box labeled C is 0 plus 1, or 1. 

The statement, 30 LET C = C+1, is a strange looking 
expression. If you interpret it literally, it makes no 
sense. How can a number be equal to itself plus 1? But 
it’s not algebra. It’s an order to the computer, and the 
computer reads it from right to left. First figure out what 
C+1 is, then assign this number to the variable on the 
left-hand side of the equal sign. 

The final step of the program is a test to determine 
whether or not the message has been printed seven 
times. Recall the mechanical counter. If the number in 
the window was less than 7, you knew the event you 
were counting had not yet occurred the seventh time. 
The instruction in BASIC is 40 IF C < 7 THEN 20. If 
the value of C is less than 7, then control of the computer 
is transferred back to line 20. If the value is not less than 
7, that is if it is 7 or more, then the computer drops down 
to the next and last step: 50 END. 

In short, the computer continues to loop back to line 20 
as long as the value of C is less than 7. When C equals 7 
v the loop is satisfied and the computer drops through to 
the END statement. Both this program, GREATEST/7, 
and the previous one, GREATEST/ENDLESS, are 
examples of loops. The program GREATEST/END¬ 
LESS sends the computer around the loop endlessly, 
while the program GREATEST/7 sends the computer 
back to print the message only under the condition that 
the total number of messages printed has not exceeded 
seven. Thus, GREATEST/7 is an example of a condi¬ 
tional loop. You’ll write many conditional loops. 


Now it’s time to go “on line” to your computer. The 
procedure for getting on line varies from one kind of 
computer to another. To learn how to get on line to your 
computer, and how to enter a BASIC program, consult 
your user’s manual or ask someone to show you. Don’t 
be afraid to sit down and take control. In no time at all 
getting on line and entering a program will be second 
nature. 
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mmmmmmmmM exercise set i .1 mummmmmmm 

The exercises in this book are specified as either off-line 
exercises or on-line exercises. Off-line exercises do not 
require a computer. In on-line exercises you will write, 
load, run and perfect a program. The number of exer¬ 
cises has been kept to a minimum and you should do 
them all. 

Off-line: 

To find the answers to each of these off-line exercises, 
consult the manual for your computer system or ask a 
knowledgeable friend. 

1. Describe the steps to be followed to get yourself 
on line to your computer and into BASIC. 

2. If your system requests a program name before 
entering the program, how long can the program 
name be and what set of characters can you use in 
the name? 

3. Describe the function of the words RUN, LIST, and 
SCRATCH. Also OLD and NEW if applicable. 

4. Suppose you make a typing error as you’re typing in 
your program. How do you correct your mistake? 

5. Suppose you’ve typed in a line which you wish to 
eliminate. How can you delete this line from your 
program? 

On-line: 

6. Compose your own message and write a program 
that will type out your message exactly once. 

7. Compose your own message and write a program 
that will type out your message endlessly. However, 
do not let it run forever; stop the program when 
you’ve seen enough. 

8. Compose your own message and write a program 
that will type out your message exactly 11 times. 

1.2 GETTING THE BUGS OUT 

Even experienced programmers make errors. Errors 
in programming are called “bugs.” Bugs can make you 
unhappy. If you don’t get the bugs out of your program 
quickly, you won’t have much fun with the computer. 
The process of locating and eliminating these errors is 
known as “debugging.” If you’ve already been on line 
and have run the three programs requested, you will 
readily appreciate the following discussion. 

The types of errors which you can make are many, 
but some kinds are more easily spotted and removed 
than others. Here are three kinds of errors. 

1. Typing Errors 

2. Sentence Structure Errors 

3. Logical Errors 
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GREATEST/BUG 1 


1.2.1 TYPING ERRORS 

In your haste to type in a program you will often 
misspell words, type the wrong symbols, or leave out 
essential information. Spelling errors are not too impor¬ 
tant if they occur in the message; the computer will just 
spell the words the way you do. But if you misspell one 
of the BASIC command words, such as LET or PRINT, 
the computer will not recognize it. It will respond with 
an error message, either immediately after you hit the 
RETURN key, or later when you type RUN. Here are 
some examples of common typing errors: 


WRONG 

1. LETT C = 0 

2. PRIN “YOU’RE THE 

GREATEST.” 

3. LET C = C = 1 

4. IF C < 7 THEN 


RIGHT 
LET C = 0 

PRINT “YOU’RE THE 
GREATEST.” 

LET C = C+l 
IF C < 7 THEN 20 


A more difficult error to spot occurs when you inad¬ 
vertently type the letter O for the number zero, or the 
letter L or I for 1. To help you distinguish zero from the 
letter O, the zero key will often contain a slash through 
the zero: 0. You’ll catch most of these careless errors as 
you type, or by quickly rereading the program before 
you type RUN. But some typing mistakes are not so 
easy to detect. Here’s an example. This program is 
intended to print the message YOU’RE THE 
GREATEST seven times. 

PROGRAM 10 LET O0 

20 PRINT ••YOU*RE THE GREATEST • 99 
30 LET C-Ol 
40 IF C< 7 THEM 40 
50 END 

When you enter the program and type RUN, the compu¬ 
ter will type out YOU’RE THE GREATEST once and 
then stop printing. You might sit there for quite some 
time waiting for additional copies of the message. After 
a while you might decide that the computer had mal¬ 
functioned, or “crashed,” when in fact it had not. 
There’s a bug in the program. It’s in line 40. The 
instruction can be executed, but doesn’t lead anywhere. 
The computer is caught in a loop. At line 40 it transfers 
control to line 40, which in turn transfers control to itself 
again. It stays on this merry-go-round until you inter¬ 
rupt execution of the program. Here’s the point. If you 
expect a line to be printed and no action occurs within a 
reasonable length of time, you’d better stop the compu¬ 
ter and find out what’s happened by rereading your 
program more carefully. In the above case, for exam¬ 
ple, the correct statement for line 40 is: 40 IF C < 7 
THEN 20. 
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Here is another typing error which can cause you 
grief. You enter the following program: 

10 LET C*0 PROGRAM GREATEST/BUG 2 

20 PRIMT ••YOU* RE THE GREATEST# 

30 LET OOI 
40 IF C<7 THEN 20 
50 END 

With this program, you expect the computer to type out 
the message seven times. But, when you type RUN, you 
get: 

YOU ’ RE THE GREATEST# OUTPUT 
YOU’RE THE GREATEST# 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST# 

YOU’RE THE GREATEST# 

YOU’RE THE GREATEST# 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST# 

YOU’RE THE GREATEST. 

YOU’RE THE GREATEST# 

YOU’RE THE GREA 
rC 

After about ten lines have appeared, you might well 
suspect that something is wrong and halt the computer. 

Remember,' any time you think the computer is going 
berserk, don’t panic and pull the plug. Signal the device 
to stop. Then find the bug. Read the above program 
carefully. In line 30 did we use the number 1 or the letter 
I? Which is correct? Of course it should be the number 
1. So you make the correction by retyping the line as: 30 
LET C = C + 1. All is well. 

However, if your eye does not catch the substitution 
of the letter I for the number 1, here is a technique worth 
remembering. Since you wrote the program, you know 
it should type out the same message seven times. Fur¬ 
thermore, you know the variable C is acting as a counter. 

As the computer executes your program, the variable C 
should take on the values 0, 1,2, 3, 4, 5, 6, and 7 one at 
a time. To see whether this is happening, we insert the 
statement PRINT C in the program. Whenever the com¬ 
puter encounters this statement, it will go tOjthe box 
labeled C and print the contents. But where do you 
insert the PRINT C statement? In this case, you can do it 
either before or after line 30, but it must be inserted 
between lines 20 and 40. I would prefer to look at the 
value of C after line 30 is executed. Let’s use line 35. 

Don’t write just 35 PRINT C, however. To help find the 
value of C in the printout, write 35 PRINT “C = ” C. 

The characters in quotes will be printed followed by the 
value of C. Here is a copy of my conversation with the 
computer as I debugged this program. 
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GREATEST/BUG 2 CONVERSATION 10 LET O0 

1 20 PRIMT "YOU’RE THE GREATEST*" 

30 LET C*OI 
40 IF C<7 THEM 20 
50 END 

35 PRIMT "0"C 
RUN 

YOU*RE THE GREATEST* 

O 0 

YOU*RE THE GREATEST. 

O 0 

YOU'RE THE GREATEST* 

O 0 

YOU*RE THE GREATEST. 

0 » 0 

YOU'RE THE GREATEST. 

O 0 

YOU'RE THE GREATEST. 

O 0 

YOU'RE T 
tC 

As I watch this printed out, I see the number zero 
appearing as the value of C time after time after time. 
Something is wrong. C is not increasing by 1 each time 
the message is printed. This suggests to me that I should 
look carefully at the line which increases the counter, 
that is line 30. I retype line 30 as 30 LET C = C + 1. 
Having corrected line 30, I verify that C now takes on 
the values 1,2,3,4,5,6, and 7 by running the program 
while retaining the “see through” PRINT statement in 
line 35. 

GREATEST/BUG 2 CONVERSATION ^ LET Cm Q+\ 

RUM 

YOU'RE THE GREATEST. 

O I 

YOU'RE THE GREATEST. 

O 2 

YOU'RE THE GREATEST. 

O 3 

YOU'RE THE GREATEST. 

O 4 

YOU'RE THE GREATEST. 

O 5 

YOU'RE THE GREATEST. 

O 6 

YOU'RE THE GREATEST. 

O 7 

Convinced that my program is operating correctly, I 
delete line 35 by typing the number 35 with nothing 
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after it and have as my “clean copy” the following 
“bugless’’ program. 

35 ' CONVERSATION 3 

LI ST 

10 LET C*0 

20 PRI NT "YOU # RE THE GREATEST* ,f 
30 LET OOl 
40 IF C«7 THEN 20 
50 END 

These two examples show you why programmers some¬ 
times spend more time getting the bugs out than writing 
- the program in the first place. 

On-line: 

1. Load into your computer the program 

GREATEST/BUG 1, including the bug in line 40. 

Run the program to see how your computer reacts. 

Then debug the program by retyping line 40 and 
running it again. Finally, get the computer to gener¬ 
ate a clean copy of the program. 

2. Load into your computer the program 

GREATEST/BUG 2, including the error in line 30. 

(1) Run this program. 

(2) Insert the “see through’’ PRINT statement 35 
PRINT “C =” C to check on the values of C. 

(3) Run the program again. 

(4) Correct line 30. 

(5) Run the program again to check on the values 
of C. 

(6) Delete line 35. 

(7) Run the program again. 

(8) Get a clean copy of the program. 

1.2.2 SENTENCE STRUCTURE ERRORS 

A second error you’re likely to make is an error in 
sentence structure or syntax. As shown in section 1.1, 
each line of a BASIC program begins with a line 
number. The line number is followed by a sentence 
beginning with a BASIC command, such as LET, 

PRINT, IF-THEN, GO TO, END. A sentence that 
begins with LET has a different structure than one that 
begins with GO TO, or any other command. Here are 
the rules. 

1. LET. Here is a LET statement: LET C = C + 1. A 
LET statement, known as an assignment statement, 
always has the structure: 

LET_ =_ 

variable arithmetic 

name expression 


GREATEST/BUG 2 
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In the example, what is the variable name? What is 
the arithmetic expression? For now, we will limit 
the variable names to single letters of the alphabet. 
Further, let us agree that an arithmetic expression 
can be a number or a collection of numbers and 
known variables joined together by the arithmetic 
operations of addition ( + ), subtraction ( —), multi¬ 
plication (*), and division (/). 

2. PRINT. Here is a PRINT statement: PRINT 
“C = ”C. A PRINT statement, known as an output 
statement, has the structure: 

PRINT_ 

variable 

name 


or, PRINT 44 ___ 

string of characters 

or, PRINT 4 4 _’ ’_ 

string of variable 

characters name 


or, 


PRINT_ 4 4 _ 

variable string of 

name characters 


or, PRINT 

3. GO TO. Here is a GO TO statement: GO TO 40. A 
GO TO statement, also known as an unconditional 
transfer statement, has the structure: 

GOTO _ 

program line number 


4. IF-THEN. Here is an IF-THEN statement: IF C < 7 
THEN 20. An IF-THEN statement, also known as a 
conditional transfer statement, has the structure: 

IF _ _ __ THEN_ 

arithmetic one of the arithmetic line number in 

expression relations expression program 

= equal to 
> greater than 
< less than 

> = greater than or equal to 

< = less than or equal to 

< > not equal 

5. END. An END statement, known as a control 
statement, has the structure: 

END 
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So much for the rules of sentence structure. Here are 
some errors you might make. 

1. 10 PRINT “YOU’RE THE GREATEST. You for¬ 
got the second quotation mark. 

2. 20 “YOU’RE THE GREATEST.” You forgot the 
PRINT command. 

3. 30 LET C + 1 = C. Should be 30 LET C = C + 1. 

4. 20 TYPE “YOU’RE THE GREATEST.” Illegal 
because TYPE is not a BASIC command. 

5. LET C = C + 1. You forgot the line number. 

6. 40 LET OC+1. Should be 40 LET 
C = C + 1. 

7. 30 LET C = C + 1IFC<7 THEN 20. You for¬ 
got to press the return key at the end of the first 
statement. 

8. 60 RUN. Illegal because RUN is not a BASIC 
program command; it is a BASIC system command. 

9. 30 LET CT = CT + 1. Illegal because a variable 
name cannot be a two-letter combination. 

This is just a sample of the errors you can make in 
sentence structure. Whenever you make a mistake of 
this type, the computer will always print out the number 
of the line where the syntax error has occurred. The 
computer, you see, cannot execute your program unless 
it can translate these BASIC statements into machine 
code, and it cannot translate these statements into 
machine code unless each statement satisfies the struc¬ 
ture required by the lead word in the sentence. 


EXERCISE SET 1.2.2 


Off-line: 

1. Which of the following statements would not be 
acceptable in a BASIC program? To check each 
statement for bugs, look at (1) the line number, (2) 
the command after the line number, and (3) the 
symbols used with the command. Remember, this 
list is not a program. Consider each statement indi¬ 
vidually. 


K) 40 IF 7>C THEN 20 


A) 13 LET C*1 


L) 500 END 


B) 41 TYPE "YOU*RE THE GREATEST.•• 

C) 25 PRINT 

D) 45 DONE 

E) 1 PRINT "HELLO 

F) 132 IF C<7 THEN 

G) 22 PRINT "C«"C 

H) 150 PRINT "END" 


M> 30.5 GO TO 20 
N> 30 PRINT C»C 
0> LET C*0 

P> 50 WRITE "GOOD BYE." 

Q> 70 RUN 

R> 90 IF 07 THEN LET OO1 
S) 50 GO TO 20 


I) 40 GO TO 10 


T) 30 LET Ol+C 


U> 


J) 20 PRINT "LOOK AT THE LINE NUMBER 


PRINT "HELLO" 
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GREATEST/BUG 3 


2. There are three kinds of words you use in com¬ 
municating with the computer: (1) Words used as 
commands in a BASIC program. Call them BASIC 
program words. (2) Words which instruct the com¬ 
puter to do something with your program. Call them 
BASIC system words. (3) Words which instruct the 
computer to accept you as a user, obtain a particular 
language for you, or perform some other task. Call 
them computer system words. There are many com¬ 
puter systems, each with a unique set of computer 
system words. Consult your computer manual for 
the computer system words used with your system. 

Here is a list of BASIC program words and 
BASIC system words. Write each word in the ap¬ 
propriate column. In the third column list the com¬ 
puter system words you have learned so far. 


SCRATCH 

LET 

OLD 

CONTROL C 

PRINT 

BYE 

LIST 

(Or the equivalent 
command on your 

RUN 

NEW 

END 

computer.) 

DELETE 

IF-THEN 

GO TO 



BASIC BASIC Computer 

program words system words system words 


1.2.3 LOGICAL ERRORS 

When I wrote the following program, I expected the 
message to be typed out seven times. 

PROGRAM 10 LET O0 

20 PRINT ••YOU • RE THE GREATEST." 

30 IF C<7 THEM 50 
40 STOP 
50 LET OOl 
60 GO TO 20 
70 END 

As a matter of fact the program prints the message eight 
times. 

OUTPUT YOU*RE THE GREATEST. 

YOU*RE THE GREATEST. 

YOU*RE THE GREATEST. 

YOU•RE THE GREATEST. 

YOU*RE THE GREATEST. 

YOU*RE THE GREATEST. 

YOU*RE THE GREATEST. 

YOU*RE THE GREATEST. 
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The bug is not a result of using the new BASIC word 
STOP. STOP is used whenever you wish to end a 
program at some point other than the end. For example, 
in this program, if C is less than 7 in line 30, the 
computer should go around the loop again. On the other 
hand, if C is not less than 7, that is, if it is 7 or more, the 
computer should stop, which it does in the next step: 40 
STOP. The advantage of 40 STOP over 40 GO TO 70 
(the END statement) is its brevity and its visibility in the 
program. 

Now back to the bug. If you’re an experienced pro¬ 
grammer you have probably found the bug. If not, let 
me show you a way to find it. It is the technique of 
longhand execution. Sit down in a quiet place away 
from your terminal with a clean, up-to-date copy of your 
program. Read your program line by line, carrying out 
in your head each instruction. At the same time, keep 
track of (1) the values of any variables and (2) the output 
as it occurs. A piece of paper may be helpful here. Later 
on, when you have more experience, you’ll find it easy 
to read programs and to keep track of the values of 
variables in your head. But when you get in trouble, use 
pencil and paper. 

Let me illustrate this process of ‘ ‘playing computer. ’ ’ 

There is only one variable in this program, so set up on 
your sheet of paper a column headed C in which to 
record the values of C as you calculate them in your 
head. Reserve another area on the paper to record the 
output. Your work sheet may well look like this: 

PROGRAM: LONGHAND BOOKKEEPING: 

10 LET C»0 £. 

20 PRINT "ITOU'RE TRE GREATEST.” 

30 IF C<7 TREN 50 
40 STOP 
50 LET C»01 
60 GO TO 20 
70 END 

OUTPUT AREA: 


Now execute the program line by line. After you exe¬ 
cute line 20 the second time, your work sheet should 
look like this: 

PROGRAM: LONGHAND BOOKKEEPING: 

10 LET C*0 £ 

20 PRINT ”TOU , RE THE GREATEST.” P 

30 IF C<7 THEN 50 1 

40 STOP 
50 LET C-Ol 
60 GO TO 20 
70 END 

OUTPUT AREA: 

YOU’RE THE GREATEST. 
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Each time you compute a new value of C, cross out 
the old value and write the new value below it. Instead 
of writing the message each time, it’s sufficient to write 
it once and then use check marks to keep track of 
repetitions. Continue executing the program longhand. 
Here is the picture after line 20 has been executed for the 
fifth time. 


PROGRAM: LONGHAND BOOKKEEPING: 

10 LET C»0 _C_ 

20 PRINT "YOU*RE THE GREATEST• M rt 

30 IF C< 7 THEN 50 / 

40 STOP $ 

50 LET OOl \ 

60 GO TO 20 * 

70 END 4 


OUTPUT AREA: 

YOU’RE THE GREATEST. 

v/ 

\S 


When you finally reach the STOP statement, your work 
sheet should look like this: 


PROGRAM: LONGHAND BOOKKEEPING: 

10 LET O0 _C_ 

20 PRINT "TOU’RE THE GREATEST.” j0 

30 IF C< 7 THEN 50 
40 STOP 
50 LET OOl 
60 GO TO 20 
70 END 


OUTPUT AREA: 

YOU’RE THE GREATEST. 

v/ 


A 

A 

A 

A 

J6 

7 


The message was to have been printed seven times. 
How many times was it printed? Eight times is one too 
many! If eight messages is one too many, then C is 
overshooting the target value by 1. The bug is in line 30. 
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The test value 7 should be 6. To eliminate this bug you 
retype line 30 as: 30 IF C < 6 THEN 50. This one 
change will fix the program. 

There is a second way to fix the program which more 
closely follows the sequence of steps you used to oper¬ 
ate the mechanical counter: (1) Set the counter at zero, 

(2) display the message, (3) increase the counter, and 
(4) test the counter. To effect this change: 

(1) In line 25, insert the step to increase the counter. 


25 LET C = C + 1 

(2) In line 30, if C is less than 7, control should be 
transferred back to the PRINT statement in line 20. 
Change the line number after the word THEN from 
50 to 20: 

30 IF C < 7 THEN 20 

(3) Lines 40, 50 and 60 are no longer needed. Delete 
them. 

GREATEST/BUG 3 now looks like this. 

10 LET C = 0 

20 PRINT “YOU’RE THE GREATEST.’’ 

25 LET C = C +1 
30 IF C < 7 THEN 20 
70 END 

To sum up, when writing conditional loops, there is less 

chance of a bug creeping into your program if you put 

the four steps in this order. 

(1) A LET statement which initializes the control vari¬ 
able at some beginning value. In this case: 10 LET 
C = 0. 

(2) The statement which is to be repeated a specified 
number of times. In this case: 20 PRINT 
“YOU’RE THE GREATEST.’’ 

(3) A LET statement which increases (or even de¬ 
creases) the control variable. In this case: 25 LET 
C = C + 1. 

(4) An IF-THEN statement, called an exit test, which 
tests the value of the control variable to determine 
if the loop has been satisfied or completed. In this 
case: 30 IF C < 7 THEN 20. 

Now for some practice at debugging. 

Off-line: 

1. Each of the following programs was intended to 
type out the message I’M AN IDIOT exactly eight 
times. There are no errors due to spelling or sen- 
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tence structure. “Play computer” to determine 
which programs produce the desired output. If the 
program does not print the message I’M AN IDIOT 
eight times, correct it by making as few corrections 
as possible. 


A. 10 LET O0 

20 PRINT "I # M AN IDIOT." 
30 LET OOl 
40 IF C<3 TrfEN 20 
50 END 

B. 1 LET C»0 

2 PRINT "I f M AN IDIOT." 

3 LET OOl 

4 IF C<*3 TrfEN 2 

5 END 

C. 100 LET Ol 

110 PRINT "I f N AN IDIOT." 
120 IF C<3 TrfEN 110 
130 LET OC+1 
140 END 

D. 13 LET CM 
26 LET C*CM 

39 PRINT "I f M AN IDIOT." 
52 IF C<*8 TrfEN 26 
65 END 


E. 5 LET CM 

10 PRINT "I AN IDIOT." 

15 IF C<»3 TrfEN 25 

20 STOP 

25 LET C»CM 

30 GO TO 10 

35 END 


F. 10 LET CM 

20 PRINT "I f M AN IDIOT." 
30 LET C*CM 
40 IF C<M0 TrfEN 20 
50 END 


G. 20 LET CM 

40 PRINT "I f M AN IDIOT." 
60 LET C«CM 
30 IF C<=8 TrfEN 20 
100 END 


On-line: 

2. Each of the following programs was intended to 
type out the message HELLO exactly five times. 
There are no errors due to syntax or spelling. Load 
and run each program. If a program does not gener¬ 
ate the message HELLO five times, correct it on 
line, making as few corrections as possible. 


A. 10 LET X«0 

20 PRINT "HELLO" 

30 LET X*XM 

40 IF X<«4 THEN 20 

50 END 


B. 10 LET PM 

20 PRINT "HELLO" 

30 LET P«PM 

40 IF P<*5 TrfEN 20 

50 END 


C. 10 LET D«0 

20 PRINT "HELLO" 
30 IF D*5 TrfEN 60 
40 LET D»D+1 
50 GO TO 20 
60 END 


D. 10 LET C*36 

20 PRINT "HELLO" 

30 LET C«CM 

40 IF C<*41 TrfEN 20 

50 END 

E. 10 LET N»0 

20 PRINT "HELLO" 

30 LET M*MM 
40 IF M<*4 TrfEN 50 
50 GO TO 20 
60 END 

F. 10 LET CM 

20 PRINT "HELLO" 

30 IF C<6 TrfEN 50 
40 STOP 
50 LET C*CM 
60 GO TO 20 
70 END 
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1.3 LOOP BUILDING 

At the end of the last section we listed the four steps 
used in building a conditional loop. Now I’ll show you 
an easier way to build conditional loops using two new 
BASIC words, FOR and NEXT. To illustrate, here is an 
old friend, the program to type out our favorite message 
YOU’RE THE GREATEST seven times. 

10 LET O0 PROGRAM 

30 PRINT "YOU f RE THE GREATEST#" 

30 LET OOl 
40 IF C<7 THEN 20 
50 END 

In the following program the two statements that begin 
with FOR and NEXT perform the same functions as 
LETC = 0,LETC =C+l,andIFC < 7THEN20in 
the above program. 

i—10 FOR C»0 TO 6 PROGRAM 

LOOP 20 pr 1NT "YOU # RE TrtE GREATEST#" 

1—30 NEXT C 
40 END 

The statement FOR C = 0 TO 6 in line 10 instructs 
the computer to perform the following operations. The 
corresponding statements in the old program are given 
in parentheses after each operation. 

1. C is the control variable and its beginning value is 0. 

(LET C = 0). 

2. The increment or step between successive values of 
the control variable is plus 1. (LET C = C + 1) 

3. The final value of the control variable is 6. (IF C < 

7 THEN 20) 

The step to be repeated, the PRINT statement, follows 
the FOR statement. The statement NEXT C on line 30 
ends the loop. 

When the computer executes the program 
GREATEST/FOR, C is set at 0, the message is printed, 
the next C, 1, is generated, the message is printed again, 
the next C, 2, is generated, the message is printed again, 
etc. This process continues while C is less than or equal 
to 6. When C exceeds 6, that is, when it becomes 7, the 
loop is satisfied and the computer drops through to the 
next statement, which in this case is the END statement. 

I hope you like the new words, FOR and NEXT, 
because they do make it easier to write conditional 
loops. Also the logic is clearer. We just define our FOR 
statement, put down the message or steps to be re¬ 
peated, and end the loop with the NEXT statement. 

Here is another program which used FOR and NEXT 
to type out a message seven times. 


C 

LOOP 


c 

LOOP 




10 FOR G»1 TO 7 
20 PRINT "YOU*RE THE GREATEST 
30 NEXT C 
40 END 


«• 


PROGRAM 


GREATEST/7 


GREATEST/FOR 


GREATEST/FOR 1-7 
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Look at the FOR statement in line 10. Instead of starting 
C at zero, the computer starts C at 1. Instead of stopping 
C at 6, it stops C at 7. From this point on, if I wish to 
print a message or perform some other task seven times I 
will initialize the control variable at 1. The final value of 
C will always be the same as the number of times the 
computer goes around the loop. 

In summary, the syntax of a FOR statement is: 

FOR_=_TO_, 

Name Initial value Final value 
of control of control of control 

variable variable variable 


where the increment is understood to be plus 1. The 
syntax of the NEXT statement is: 


NEXT_ 

Name of control variable 
in matching FOR 
statement 


EXERCISE SET 1.3 


Off-line: 

1. Play computer and determine the output of each 
program. 


A. 10 FOR C=1 TO 5 

20 PRINT "I LIKE YOU." 
30 NEXT C 
40 END 

B. 10 FOR C*0 TO 6 

20 PRINT "COMPUTERS ARE 
30 IF C»4 THEN 50 
40 NEXT C 
50 END 


C. 10 FOR C»25 TO 29 
20 PRINT "HELLO" 

30 NEXT C 
40 FOR C»6 TO 7 
50 PRINT 
60 NEXT C 

FUN." 70 FOR C*10 TO 12 

80 PRINT "GOOD BYE" 
90 NEXT C 
100 END 


COMPUTERS ARE FUN. 
COMPUTERS ARE FUN. 
COMPUTERS ARE FUN. 

I f M FASTER THAN YOU. 
I # M FASTER THAN YOU. 
I # M FASTER THAN YOU. 
I*M FASTER THAN YOU. 
I f M FASTER THAN YOU. 

I LIKE YOU. 

I LIKE YOU. 

I LIKE YOU. 

I LIKE YOU. 

I LIKE YOU. 

I LIKE YOU. 


2. Look at the output you wrote down while playing 
computer with the program listed in part C above. 
Write a new program which will generate the same 
output, but make the initial value of the control 
variable in each loop 1. 

On-line: 

3. Write a program which contains three conditonal 
loops, one which produces the message COM¬ 
PUTERS ARE FUN three times, one which pro¬ 
duces the message I’M FASTER THAN YOU five 
times, and one which produces the message I LIKE 
YOU six times. You may substitute other messages 
if you wish. The output generated by your program 
should look like the output shown at the left. 
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1.4 BRANCHING: WRITING A PROGRAM FROM A 
FLOW CHART 

In the last section you learned two new BASIC 
words, FOR and NEXT, and how to use them to build 
simple loops. In this section you will learn how to write 
programs which contain several IF-THEN statements. 
IF-THEN statements direct the computer to follow one 
of two possible routes, or branches, in response to a 
question. Programs which contain branches can be 
more easily written if you work from a flow chart. 

Write a program that allows the user to pick a whole 
number, 1, 2, or 3, so that, if he picks 1, the computer 
types back COMPUTERS ARE FUN, if 2, the response 
is PM FASTER THAN YOU, and if 3, the response is 
I LIKE YOU. 

What is a flow chart? In simple terms a flow chart is 
nothing more than a graphic description of the steps to 
be followed in arriving at the solution to a problem. A 
flow chart is a valuable aid in helping you sort out your 
thoughts and method of solution, by defining and dis¬ 
playing your thoughts in proper order. 

In meeting the above objective, we must first instruct 
the computer to receive the number the user has picked, 
then determine whether the number is 1, 2, or 3, and 
finally print the corresponding message. Since the com¬ 
puter must receive a number from the user, you must 
designate a variable to hold a place for the number. 
Let’s use the variable name N for the number. Look at 
the following flow chart. 



DROP-DOWN 

BRANCH 


FIRST YES 
BRANCH 


SECOND YES 
BRANCH 


3-MESSAGE/ELEMENTARY 
FLOW CHART 


Look at the geometric shapes used in the flow chart. 
Diamonds are used for questions, and rectangles are 
used for other instructions or directions. Now look at the 
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3-MESSAGE/ELEMENTARY 
FLOW CHART 



DROP-DOWN 

BRANCH 


questions in the diamonds. If the answer to the question 
is YES, you exit from the diamond at the right. If the 
answer to the question is NO, you exit from the diamond 
at the bottom. The lines that connect the rectangles and 
diamonds show the path to take after completing the 
operation specified in a diamond or rectangle. How 
many possible routes or paths are there? 

Look at the first rectangle at the top of the flow chart. 
Assume the value of N is 1, and trace the path through 
the flow chart to find the message that will be printed. 
You should pass through the FIRST YES BRANCH. 
Trace the path to find the message that will be printed if 
N is 2. You should pass through the SECOND YES 
BRANCH. Finally, trace the path to find the message 
that will be printed if N is 3. You should pass through 
the DROP-DOWN BRANCH. In short, this flow chart 
has three branches, and for each value of N, 1, 2, or 3, 
you end up on one of the three branches. After the 
message is typed out, you return to the top rectangle and 
start again. 

We can get rid of the long lines that go from the end of 
each branch back to the top of the flow chart. Attach to 
the end of each branch a small circle with the number 1 
in it, and attach to the first box in the flow chart a similar 
circle containing the number 1. This indicates transfer 
of control from one point in the flow chart to another 
without long lines. Here is the flow chart with this 
refinement. 


3-MESSAGE 
FLOW CHART 



FIRST YES 
BRANCH 


SECOND YES 
BRANCH 


DROP-DOWN 

BRANCH 


We’re now ready to translate the flow chart into a 
program. If your flow chart is detailed enough, the 
translation process is one for one. That is, each in¬ 
struction or question in the flow chart corresponds to 
one BASIC statement. Here we go. First place some 
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^1 


line numbers down the left-hand margin for organiza¬ 
tional purposes. 

10 
20 
30 
40 
50 
60 
70 
80 
90 
100 

The first instruction, 


is represented in BASIC by INPUT N. When the com¬ 
puter executes this instruction, it prints a question mark 
at the user’s terminal and then waits for him to type in a 
number. The incomplete program at this point looks like 
this: 

10 INPUT N 
20 
30 
40 
50 
60 
70 
80 
90 
100 

Now, we come to our first diamond. 



The YES exit is translated into an IF-THEN statement 
as follows: 

IF N =1 THEN_ 

As I explained earlier, a line number is required after 
THEN. We’ll go back and insert the line number of 
PRINT “COMPUTERS ARE FUN” when we add that 
PRINT statement to the program. 

There is no program line corresponding to the NO 
exit. If N is not 1, control drops to the next line in the 
program. We’ll get to that line, line 30, in a minute. 
Meanwhile, here is our incomplete program at this 
point. 


10 INPUT N 
20 IF N=1 THEN 
30 
40 
50 
60 
70 
80 
90 
100 
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3-MESSAGE FLOW CHART 



DROP-DOWN 

BRANCH 


Look again at the flow chart. When we take the NO 
exit from the first diamond, we drop down to the second 
diamond. 

FIRST YES 
BRANCH 


SECOND YES 
BRANCH 

The YES exit from the second diamond is translated into 
IF N=2 THEN_ 

This time, the blank after THEN will eventually be 
filled with the line number of PRINT “I’M FASTER 
THAN YOU.” 

Again, there is no program line corresponding to the 
NO exit. If N is not 2, control drops to the next line in 
the program. We’ll write that line, line 40, next. Mean¬ 
while, the incomplete program looks like this. 



10 INPUT N 
20 IF N=1 THEN, 
30 IF N=2 THEN 
40 
50 
60 
70 
80 
90 
100 


Look again at the flow chart. When we take the NO exit 
from the second diamond, we drop down to the follow¬ 
ing box. I 


PRINT 
I LIKE YOU 

d 

The box is translated as line 40: 


PRINT “I LIKE YOU.” 


We’re at the end of the drop-down branch. The tag 
hanging from the bottom of the box indicates that con¬ 
trol is to be transferred back to the beginning of the 
program. To do this, we add the next step, GO TO 10, at 
line 50. Now our program looks like this. 

10 INPUT N 

20 IF N=1 THEN_ 

30 IF N=2 THEN_ 

40 PRINT “I LIKE YOU.” 

50 GO TO 10 
60 
70 
80 
90 
100 
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That takes care of one of the three branches, the 
“straight through” or “drop down” branch. Let’s 
program another branch. It could be either of the other 
two. I think it’s easier to work back up the flow chart. 
Backtrack to the last diamond you passed through. It 
contains the question IS N=2? This question is already 
represented by an IF-THEN statement in line 30. Com¬ 
plete line 30 by filling in the blank with the next avail¬ 
able line number; that’s 60. Then write in line 60: 
PRINT “I’M FASTER THAN YOU.” That brings us 
to the end of another branch. Transfer back to the 
beginning of the program by writing in line 70, GO TO 
10. The incomplete program now looks like this. 

10 INPUT N 

20 IF N= 1 THEN_ 

30 IF N=2 THEN 60 
40 PRINT “I LIKE YOU.” 

50 GO TO 10 

60 PRINT I’M FASTER THAN YOU.” 
70 GO TO 10 
80 
90 
100 


That takes care of two of the three branches. Backtrack 
to the first diamond in the flow chart. It contains the 
question IS N=l? This question is already represented 
by an IF-THEN statement in line 20. To complete line 
20, fill in the biank with the next available line number; 
that’s 80. On line 80 write PRINT “COMPUTERS 
ARE FUN.” This brings us to the end of the branch. 
Transfer control back to the beginning of the program 
by writing in line 90, GO TO 10. Adding the END 
statement, we have as our final program: 

10 INPUT N 

20 IF N = 1 THEN 80 

30 IF N=2 THEN 60 

40 PRINT “I LIKE YOU.” 

50 GO TO 10 

60 PRINT “I’M FASTER THAN YOU.” 

70 GO TO 10 

80 PRINT “COMPUTERS ARE FUN.” 

90 GO TO 10 
100 END 


To check the accuracy of the new program, load and 
run it, using all the numbers, 1, 2, and 3, to test all the 
branches. Don’t assume that if the program works for 
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one number, it will produce correct results for the other 
numbers also. If your program is correct, you will get 
the output shown below. 

^MESSAGE PROGRAM 10 INPUT N 

20 IP N»1 THEN 80 
30 IP N»2 THEN 60 

40 PRINT "I LIKE YOU."*- IFN=3 

50 GO TO 10 

60 PRINT "I *M PASTER THAN Y0U."*-IFN = 2 
70 GO TO 10 

80 PRINT ••COMPUTERS ARE FUN.”*-IF N = 1 

90 GO TO 10 
100 END 


OUTPUT 7 1 ◄ - TEST N = 1 

COMPUTERS ARE PUN. 

7 2 *-TEST N = 2 

I’M PASTER THAN YOU. 

7 3 4 -TEST N = 3 

1 LIKE YOU. 

7 2 *-TEST N = 2 

I’M PASTER THAN YOU. 

7 3 < -- TEST N = 3 

I LIKE YOU. 

7 1 ◄-TEST N = 1 

COMPUTERS ARE PUN. 

7 

»C 

If you do not get this output, you have made either (1) an 
error in logic, as represented in the flow chart, or (2) an 
error in encoding the program. You already know how 
to stamp out bugs. 


Off-line: 


EXERCISE SET 1.4 


1. The following flow charts illustrate two solutions 
that are logically equivalent to the flow chart 


FLOW CHART 


3-MESSAGE. In other words, although the ques¬ 
tions are different, the results are the same. Write a 
program from each of the new flow charts. Note in 
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FLOW CHART 


2. That makes three logically equivalent solutions for 
3-MESSAGE. But there are more. Fill in the follow¬ 
ing chart so as to define one of the remaining solu¬ 
tions. Then write a program from your flow chart. 



3. Each of the following six programs was intended 
to produce a message in response to a number, as 
shown here. 

INPUT (N) _ OUTPUT 

1 COMPUTERS ARE FUN 

2 I’M FASTER THAN YOU 

3 I LIKE YOU 


Not all the programs generate the desired output, 
however. Play computer to determine the output of 
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each program. If the output is not as intended, make 
the necessary corrections to the program. 


A. 

10 IMP T JT n 

20 IF N»1 THEN 60 

30 IF N=*2 THEM 50 

40 PRINT "I LIKE YO T J." 

50 PRINT "I # M FASTER THAN YOU." 
60 PRINT "COMPUTERS ARE FUN." 

70 END 

B. 

10 INPUT N 

20 IF N* 1 THEN 30 

30 PRINT "COMPUTERS ARE FUN." 

40 GO TO 10 

50 IF N*2 THEN 60 

60 PRINT "I*M FASTER THAN YOU." 

70 GO TO 10 

80 IF N«3 THEN 90 

90 PRINT "I LIKE YOU." 

100 GO TO 10 
110 END 

C. 

10 INPUT N 
20 IF N« 1 THEN 30 
30 IF N»2 THEN 30 
40 PRINT "I LIKE YOU." 

50 GO TO 10 

60 PRINT "COMPUTERS ARE FUN." 

70 GO TO 10 

30 PRINT "I*M FASTER THAN YOU." 
9 0 END 


D. 

10 INPUT N 

20 IF N»l THEN 30 

30 IF N=*2 THEN 40 

40 PRINT "I f M FASTER THAN YOU." 

50 GO TO 10 

60 PRINT "COMPUTERS ARE FUN." 

70 GO TO 10 

30 PRINT "I LIKE YOU." 

90 GO TO 10 
100 END 

E. 

10 INPUT N 

20 IF N*3 THEN 30 

30 IF N*1 THEN 60 

40 PRINT "I LIKE YOU." 

50 GO TO 10 

60 PRINT "I f M FASTER THAN YOU." 
70 GO TO 10 

30 PRINT "COMPUTERS ARE FUN." 

90 GO TO 10 
100 END 

F. 

10 INPUT N 

20 IF N<3 THEN 50 

30 PRINT "I LIKE YOU." 

40 GO TO 10 

50 IF N<2 THEN 30 

60 PRINT "I f M FASTER THAN YOU." 

70 GO TO 10 

30 PRINT "COMPUTERS ARE FUN." 

90 GO TO 10 
100 END 


On-line: 

4. Load and run the program you wrote for the second 
flow chart (B) in exercise 1 to verify that your 
program is correct. 

5. Load and run the program you wrote in exercise 2 to 
verify the logic displayed in the flow chart. 


1.5 COMPUTER PERSONALITY AND LAYOUT 

Look at the output for the program 3-MESSAGE. If 
someone else were to run that program, he would have 
no idea what to do when confronted with the question 
mark generated by the INPUT statement. Instruct the 
user to type 1, 2, or 3, by adding to the program 5 
PRINT “TYPE 1, 2, OR 3”. To insure that line 5 is 
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executed each time, replace GO TO 10 in lines 50, 70 
and 90 with GO TO 5. 


PROGRAM 


OUTPUT 3-MESSAGE/INSTRUCT 


—► 5 PRINT ••TYPE 1*2,OR 3" 

10 INPUT N 
20 IF N* 1 THEN 80 
30 IF N*2 THEN 60 
40 PRINT ”1 LIKE YOU." 

—► 50 GO TO 5 

60 PRINT "I # M FASTER THAN YOU." 
—► 70 GO TO 5 

80 PRINT "COMPUTERS ARE FUN." 

—► 90 GO TO 5 
100 END 


To have the question mark appear at the end of the 
instruction instead of on the line following, place a 
semi-colon at the end of line 5. The semi-colon is a 
signal to the computer that there is more to be printed on 
the same line. In this case, the additional characters 
come from the INPUT statement on line 10. 


TYPE 1 * 2* OR 3 
? 1 

COMPUTERS ARE FUN. 
TYPE 1*2*OR 3 
? 2 

I • M FASTER THAN YOU. 
TYPE 1* 2* OR 3 
? 3 

I LIKE YOU. 

TYPE 1 * 2* OR 3 
? 2 

I f M FASTER THAN YOU. 
TYPE 1 * 2* OR 3 
? 

tC 


PROGRAM 


OUTPUT 3-MESSAGE/SEMI 


5 PRINT "TYPE 1*2*OR 3"1 ◄— 

10 INPUT N 
20 IF N*1 THEN 80 
30 IF N»2 THEN 60 
40 PRINT "I LIKE YOU." 

50 GO TO 5 

60 PRINT "I f M FASTER THAN YOU." 
70 GO TO 5 

80 PRINT "COMPUTERS ARE FUN." 

90 GO TO 5 
100 END 


TYPE 1 * 2*0R 3? 1 
COMPUTERS ARE FUN. 
TYPE 1*2* OR 3? 2 
I • M FASTER THAN YOU. 
TYPE 1*2* OR 3? 3 
I LIKE YOU. 

TYPE 1 *2*0R 3? 2 
I f M FASTER THAN YOU. 
TYPE 1 *2*OR 3? 
tC 


The output of the program 3-MESSAGE/SEMI is 
crowded. Skipping a line after each message would 
make the output more readable. A PRINT command 
with nothing after it causes the computer to skip a line in 
the output. Add to the program lines 45, 65, and 85, 
each containing a blank PRINT statement. 


PROGRAM 


OUTPUT 3-MESSAGE/SKIP 


5 

PRINT 

"TYPE 1*2*OR 3"* 

10 

INPUT 

N 

20 

IF N*1 

THEN 30 

30 

IF N*2 

! THEN 60 

40 

PRINT 

”1 LIKE YOU." 

—► 45 

PRINT 


50 

GO TO 

5 

60 

PRINT 

"I*M FASTER THAN YOU 

—► 65 

PRINT 


70 

GO TO 

S 

80 

PRINT 

"COMPUTERS ARE FUN." 

—► 85 

PRINT 


90 

GO TO 

5 

100 

END 



TYPE 1 * 2* OR 3? 1 
COMPUTERS ARE FUN. 

TYPE 1 * 2*OR 3? 2 
I *M FASTER THAN YOU. 

TYPE 1#2#0R 3? 3 
I LIKE YOU. 

TYPE 1*2*OR 3? 2 
I *M FASTER THAN YOU. 

TYPE 1*2*OR 3? 
tC 
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You might also like to praise the efforts of the pro¬ 
grammer by adding this introductory message: (YOUR 
NAME) WROTE THIS TERRIFIC PROGRAM. 


3-MESSAGE/TERRIFIC 


PROGRAM —M PRINT "TED SAGE WROTE THIS TERRIFIC PROGRAM*" 
—►2 PRINT 

5 PRINT "TYPE 1# 2#OR 3"I 
10 INPUT N 
20 IF N»1 THEN 80 
30 IF N»2 THEN 60 
40 PRINT "I LIKE YOU." 

45 PRINT 
50 GO TO 5 

60 PRINT "I f M FASTER THAN YOU." 

65 PRINT 
70 GO TO 5 

80 PRINT "COMPUTERS ARE FUN." 

85 PRINT 
9 0 GO TO 5 
100 END 


OUTPUT TED SAGE WROTE TRIS TERRIFIC PROGRAM. 


TYPE W2#0R 3? 1 
COMPUTERS ARE FUN. 

TYPE U2/0R 3? 2 
I'M FASTER THAN YOU. 

TYPE 1 #2#0R 3? 3 
I LIKE YOU. 

TYPE 1 9 2# OR 37 2 
1 •M FASTER TRAN YOU. 

TYPE 1 # 2#0R 3? 
tC 


A person who has little or nothing to say is rarely very 
interesting. On the other hand, a person who 
monopolizes the conversation is a bore. The frequency 
of interaction between the player and the computer, and 
the choice of vocabulary are two factors under your 
control. Balance the dialogue between the computer and 
the user. Don’t let the computer do all the talking, and 
don’t make the user do all the typing. Use a vocabulary 
which reflects your personality, or someone else’s. 
People will like to play your games if they can laugh and 
have fun. But don’t spend too much time on personality 
and readability until you are sure that your basic pro¬ 
gram works correctly. 
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Off-line: ’ EXERCISE SET 1.5 

1. Play computer and determine the output of the fol¬ 
lowing program. 

10 PRINT "THIS IS A USELESS PROGRAM." 
15 PRINT 

20 PRINT 'MOW MANY LINES"! 

25 INPUT N 
30 FOR Ol TO N 
35 PRINT 
40 NEXT C 

45 PRINT "I TOLD YOU IT WAS USELESS." 
50 PRINT 
55 PRINT "BYE" 

60 END 

On-line: 

2. The following program was written to print out the 
message YOU’RE THE GREATEST as many times 
as requested by the user. The variable N represents 
the number of times the message is to be printed. 

10 INPUT N 
20 FOR CM TO N 

30 PRINT "YOU'RE THE GREATEST." 

40 NEXT C 
50 END 

Add instructions and personality to this program. 
Then load and test it. 

1.6 “PLEASE FOLLOW DIRECTIONS” 

Look at the flow chart for the program 3-MESSAGE. 



FIRST YES 
BRANCH 


SECOND YES 
BRANCH 


3-MESSAGE 
FLOW CHART 


DROP-DOWN 

BRANCH 

Suppose the user ignores the instruction to type in 1,2 or 
3, and types in 4. What message will be printed? Since 
N is not 1, the computer drops to the next diamond, and 
compares N with 2. Since N is not 2, the computer drops 
down to print I LIKE YOU. But I LIKE YOU is not an 
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3-MESSAGE/DUMMY 
FLOW CHART 



appropriate response for a user who cannot follow direc¬ 
tions. PLEASE FOLLOW DIRECTIONS or FOLLOW 
DIRECTIONS DUMMY would be more to the point. 
To work this into the flow chart, we need to add a third 
diamond in which the computer asks IS N = 3? 

From this flow chart the following program is encoded 
and tested. 

PROGRAM 

5 PRINT ••TYPE i#2*0R 3"I 
10 INPUT N 
20 IF N*1 THEN 110 
30 IF N»2 THEN 90 
40 IF N*3 THEN 70 

50 PRINT "FOLLOW DIRECTIONS DUMMY." 

60 GO TO 5 

70 PRINT * # I LIKE YOU*" 

80 GO TO 5 

90 PRINT "I *M FASTER THAN YOU." 

100 GO TO 5 

110 PRINT "COMPUTERS ARE FUN. " 

120 GO TO 5 
130 END 


OUTPUT 


TEST N = 1 — ►TYPE 1#2*0R 3? 1 

COMPUTERS ARE FUN. 

TEST N = 2 — ►TYPE 1#2#0R 3? 2 

I f M FASTER THAN YOU* 

TEST N = 3 —►TYPE !#2#0R 3? 3 
I LIKE YOU* 

TEST N = 5 —►TYPE 1 $ 2#0R 3? 5 

FOLLOW DIRECTIONS DUMMY r 
TEST N = — 7—►TYPE 1*2#0R 3? -7 

FOLLOW DIRECTIONS DUMMY• 
TEST N = 36 —►TYPE L2iOR 3? 36 

FOLLOW DIRECTIONS DUMMY. 
TYPE 1 * 2#0R 3? 
tC 



EXERCISE SET 1.6 


Off-line: 

1. Look at the flow chart 3-MESSAGE/DUMMY. It 
represents only one of several logically equivalent 
solutions. 

A. Fill in the chart at the left to define another of 
these solutions. 


B. Now write a program from this flow chart. 
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2. Here is another flow chart which is logically 
equivalent to 3-MESSAGE/DUMMY. The 
symbol ^ means unequal and is translated in 
BASIC as < >. The question IS N 1? is written 

IF N < > 1 THEN_ 

Write a program from this flow chart. 



FLOW CHART 


On-line: 

3. Here is another flow chart which is logically 
equivalent to 3-MESSAGE/DUMMY. 



FLOW CHART 


A. Write a program from this flow chart. 

B. Load and run to test the validity of the logic. 

C. Of the four logically equivalent solutions to the 
3-MESSAGE/DUMMY problem, which do 
you prefer? 
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1.7 COMBINING LOOPS AND BRANCHES: 

DRAWING A FLOW CHART 

When you run your 3-MESSAGE program, each 
time the computer types out a message it promptly asks 
you to pick another number, 1, 2 or 3, and out comes 
another message. It doesn’t take long before you’re 
bored with that activity. Five messages is about enough. 
To limit the computer to five messages, we’ll put the 
3-MESSAGE program in a loop that will type out any of 
the three messages, COMPUTERS ARE FUN, I’M 
FASTER THAN YOU, and I LIKE YOU five times, 
then stop. The message FOLLOW DIRECTIONS 
DUMMY, if it occurs, is not counted. 

In section 3 of this chapter, Loop Building, we used a 
FOR-NEXT loop to type out one message a specified 
number of times. If only one message is to be typed five 
times, for example, the flow chart looks like this. 


1-MESSAGE/LOOP 
FLOWCHART 



Roughly speaking, to print any three messages five 
times, a 3-message branching structure must be substi¬ 
tuted for the 1-message box in the above loop. The 
3-message branching structure looks like this. The 
fourth message is for the fellow who can’t follow direc¬ 
tions. 


3-MESSAGE/DUMMY 
FLOW CHART 
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You can’t just plug one flow chart into the other, 
however. The new flow chart is assembled this way. 
First draw the box 



Next ask the user for a value for N. 



Now it is time to ask questions about the value of N. To 
see if N is 1, draw a diamond with the question IS 
N = 1? inside. Label the right exit YES and the bottom 
exit NO. 



First, let’s take the NO or bottom exit. If N is not 1, we 
check to see if it is 2. 



Up to this point the flow chart looks like this: 



Assume N is not 2. If it is not 1 or 2, we check to see if it 
is 3. Draw a third diamond. 
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Assume N is not 3. If it is not 1,2, or 3, the user did not 
follow directions. I drew the box 


FOLLOW 

DIRECTIONS 

DUMMY 


FLOW CHART 


FOLLOW 

DIRECTIONS 

DUMMY 


After the computer prints this message, it should ask the 
user for another value for N. It is directed to return to 
GET N by attaching an identification tag to the bottom 
of the FOLLOW DIRECTIONS DUMMY box. Since 


this is the first transfer in the flow chart, I’ll put the 
number 1 in the small circle. I must also attach a tag 
to the box 


GET N 


Here is the flow chart to this point: 



The DROP-DOWN BRANCH is now complete. Three 
branches, the three YES exits, remain to be completed. 
Let’s work our way back from the bottom. This brings 
me to the diamond IS N = 3? The YES branch of this 
diamond needs to be finished. If N=3 then the message 
I LIKE YOU should be printed. I draw 


I LIKE YOU 


and place it at the right exit. 
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After printing the message I LIKE YOU, the computer 
should advance the loop counter, C, by 1. That is done 
by drawing the box 


NEXT C 


The flow chart now looks like this. 



FLOW CHART 


Suppose that, after printing the message I LIKE YOU, a 
total of five messages have been printed. The loop is 
therefore satisfied and the computer should stop. Before 
it stops, however, I want it to sign off with the message 
THAT’S ALL FOLKS. I add to the chart 


THAT’S ALL 
FOLKS 


Following this, I draw 


DONE 
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The flow chart now looks like this. 


FLOW CHART 



The THIRD YES BRANCH is now complete. Work 
back through the diamond IS N=3? to the diamond IS 
N=2? Take the YES exit and draw 


I’M FASTER 
THAN YOU 


Again we’re at the end of a branch. The computer has 
printed another message. Instruct the computer to ad¬ 
vance the loop counter by 1. One way to do this is to add 
another NEXT C box to the chart, but we already have 
one such box in the THIRD YES BRANCH, and in 
BASIC you cannot have more than one NEXT state¬ 
ment for each FOR statement. To jump to the NEXT C 
box in the THIRD YES BRANCH from the SECOND 
YES BRANCH, attach a tag with the number 2 to the 
end of the SECOND YES BRANCH and to the NEXT C 
box in the THIRD YES BRANCH. The flow chart looks 
like this. 
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FLOW CHART 


Now back up to the first diamond, IS N=l? After ^re^u ^ 8 
taking the right exit, I draw I_ 

When I reach the end of the FIRST YES BRANCH, I 
activate the counter by jumping to the THIRD YES 
BRANCH. Here is the final flow chart. 
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Now let’s write the program. Put down some line num¬ 
bers. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

The first two boxes are represented in BASIC as: 

10 FOR C=1 TO 5 
20 INPUT N 

The first diamond is translated as: 

30 IF N= 1 THEN_ 

Leaving the right exit incomplete, we take the bottom 
exit and drop down to the second diamond. The second 
diamond is translated as: 

40 IF N=2 THEN_ 

Leaving the right exit incomplete, we take the bottom 
exit and drop down to the third diamond. 

50 IF N = 3 THEN_ 

Leaving the right exit incomplete, we take the bottom 
exit and complete the DROP-DOWN BRANCH. 

60 PRINT “FOLLOW DIRECTIONS DUMMY.” 
70 GO TO 20 

Here is our incomplete program. 

10 FOR C=1 TO 5 
20 INPUT N 

30 IF N= 1 THEN_ 

40 IF N=2 THEN_ 

50 IF N=3 THEN_ 

60 PRINT “FOLLOW DIRECTIONS 
DUMMY.” 

70 GO TO 20 

Only the DROP-DOWN BRANCH is complete. Back 
up to line 50. Fill in the blank after the THEN with the 
next available line number, 80. Beginning at line 80, 
encode the instructions for the THIRD YES BRANCH. 
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80 PRINT “I LIKE YOU.” 

90 NEXT C 

100 PRINT “THAT’S ALL FOLKS.” 

110 STOP 

Here is our incomplete program. 

10 FOR C=1 TO 5 
20 INPUT N 

30 IF N = 1 THEN_ 

40 IF N-2 THEN___ 

50 IF N=3 THEN 80 
60 PRINT “FOLLOW DIRECTIONS 
DUMMY.” 

70 GO TO 20 

80 PRINT “I LIKE YOU.” 

90 NEXT C 

100 PRINT “THAT’S ALL FOLKS.” 

110 STOP 

Two branches are now complete. Back up to line 40. 
Insert after THEN the next available line number, 120. 
Beginning at line 120, encode the steps for the SEC¬ 
OND YES BRANCH. 

120 PRINT “I’M FASTER THAN YOU.” 

130 GO TO 90 

Three branches are now complete. There is only one to 
go. Finish the FIRST YES BRANCH as follows: 

140 PRINT “COMPUTERS ARE FUN.” 

150 GO TO 90 

Add the END statement: 

160 END 

Here is the complete program. 

10 FOR C=1 TO 5 
20 INPUT N 
30 IF N= 1 THEN 140 
40 IF N=2 THEN 120 
50 IF N=3 THEN 80 
60 PRINT “FOLLOW DIRECTIONS 
DUMMY.” 

70 GO TO 20 

80 PRINT “I LIKE YOU/’ 

90 NEXT C 

100 PRINT “THAT’S ALL FOLKS.” 

110 STOP 

120 PRINT “I’M FASTER THAN YOU.” 

130 GO TO 90 

140 PRINT “COMPUTERS ARE FUN.” 

150 GO TO 90 
160 END 
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Two additions will help. First, give the user some in¬ 
structions by inserting 15 PRINT “TYPE 1,2, OR 3”;. 
Second, to remind the user who types in some number 
other than 1, 2, or 3 that he should TYPE 1,2,OR 3, 
replace 70 GO TO 20 with 70 GO TO 15. Here is the 
program with these two changes. A typical run follows. 


PROGRAM 


C 

LOOP 


I- 

—MS 
20 
30 
40 
50 
60 
—*70 

S0 
I— *0 

100 

110 

120 


130 

140 

1S0 

160 


FOR C«l TO 5 

PRINT "TYPE I#2*OR 3"l 

INPUT N 

IF N»l THEN 140 
IF N-2 THEN 120 
IF N*3 TrtEN 80 

PRINT "FOLLOW DIRECTIONS DUMMf." 
GO TO 15 

PRINT "I LIKE YOU." 

NEXT C 

PRINT "THAT’S ALL FOLKS." 

STOP 

PRINT "I’M FASTER THAN YOU." 

GO TO 90 

PRINT "COMPUTERS ARE FUN." 

GO TO 90 
END 


TYPE 1.2*OR 3? 1 
1ST MESSAGE —► COMPUTERS ARE FUN. 

TV PIT l.a.AB *19 O 

2ND MESSAGE —► I *M FASTER THAN YOU. 

TYPE I,2>0R 3? 3 
3RD MESSAGE —*► I LIKE YOU. 

TYPE 1.2,OR 3? -7 
FOLLOW DIRECTIONS DUMMY. 
TYPE 1«2«0R 37 2 

4TH MESSAGE —►I’M FASTER THAN YOU. 

TYPE 1«2«0R 3? 3 
5TH MESSAGE —► ! LIKE YOU. 

THAT’S ALL FOLKS. 


EXERCISE SET 1.7 


Off-line: 

1. The following flow charts are logically equivalent to 
the flow chart 3-MESSAGE/LOOP. Write a prog¬ 
ram from each. 
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FLOW CHART 



FLOW CHART 
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2. It was intended that each of the following programs 
produce a message in response to a number, as 
shown here. 

INPUT (N) _ OUTPUT 

1 COMPUTERS ARE FUN 

2 I’M FASTER THAN YOU 

3 I LIKE YOU 

As in 3-MESSAGE/LOOP, the limit on the total 
number of messages is five. However, not all the 
programs generate the desired output or produce a 
total of five messages. Play computer to determine 
the output and operation of each program. If the 
output is not as intended, make the necessary correc¬ 


tions. 

A. 

10 FOR CM TO 5 
15 PRINT 

20 PRINT "TYPE 1 2 OR 3”; 

30 INPUT N 
40 IF N»1 THEN 130 

50 IF N»2 THEN 110 

60 IF N*3 THEN 90 

70 PRINT “FOLLOW DIRECTIONS DUMMY.” 

30 GO TO 20 

90 PRINT “I LIKE YOU.” 

100 NEXT C 

110 PRINT "I'M FASTER THAN YOU.” 
120 NEXT C 

130 PRINT “COMPUTERS ARE FUN.” 

140 NEXT C 

150 PRINT "THAT'S ALL FOR NOW.” 

160 END 


C. 

10 FOR CM TO 5 
15 PRINT 

20 PRINT "TYPE 1*2,OR 3"I 
30 INPUT N 
40 IF N*1 THEN 130 

50 IF N»2 THEN 110 

60 IF N«3 THEN 90 

70 PRINT "FOLLOW DIRECTIONS DUMMY." 

80 GO TO 140 
90 PRINT "I LIKE YOU.” 

100 GO TO 140 

110 PRINT "I'M FASTER THAN YOU." 
120 GO TO 140 

130 PRINT "COMPUTERS ARE FUN.” 

140 NEXT C 

150 PRINT "THAT'S ALL FOR NOW." 

160 END 


B. 

10 PRINT "TYPE 1*2*OR 3”1 

15 PRINT 

20 FOR C*1 TO 5 

30 INPUT N 

40 IF NM THEN 130 

50 IF N*2 THEN 110 

60 IF N»3 THEN 90 

70 PRINT "FOLLOW DIRECTIONS DUMMY." 

80 GO TO 20 

90 PRINT "I LIKE YOU.” 

100 GO TO 140 

110 PRINT "I'M FASTER THAN YOU." 
120 GO TO 140 

130 PRINT "COMPUTERS ARE FUN." 

140 NEXT C 

150 PRINT "THAT'S ALL FOR NOW.” 

160 END 


D. 

10 FOR CM TO 5 
15 PRINT 

20 PRINT "TYPE 1*2*OR 3"J 
30 INPUT N 
40 IF NM THEN 130 

50 IF N»2 THEN 110 

60 IF N»3 THEN 90 

70 PRINT "FOLLOW DIRECTIONS DUMMY." 

80 GO TO 20 

90 PRINT "I LIKE YOU.” 

100 GO TO 20 

110 PRINT "I'M FASTER THAN YOU.” 
120 GO TO 20 

130 PRINT "COMPUTERS ARE FUN." 

140 NEXT C 

150 PRINT "THAT'S ALL FOR NOW.” 

160 END 
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E. 

10 FOR C«1 TO 5 
15 PRINT 

20 PRINT "TYPE 1*2*OR 3"! 

30 INPOT N 
40 IF N=1 THEN 130 

50 IF N*2 THEN 110 

50 IF N*3 THEN 90 

70 PRINT "FOLLOW DIRECTIONS DUMMY." 
80 60 TO 20 

90 PRINT "I LIKE YOU." 

100 60 TO 120 

110 PRINT "I *M FASTER THAN YOU#" 

120 NEXT C 
125 STOP 

130 PRINT "COMPUTERS ARE FUN." 

140 60 TO 120 

150 PRINT "THAT* S ALL FOR NOW." 

160 END 


On-line: 

3. Think up four quips or messages of your own. Then 
draw a flow chart and write a program which will (1) 
ask the user for the total number of messages he 
would like printed, and (2) type out one of the four 
messages in response to an input of 1, 2, 3, or 4. 
After you have established that your program oper¬ 
ates correctly, add steps to make it personable and 
readable. Your program should produce an output 
similar to that shown at the beginning of this chap¬ 
ter. 
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WELCOME TO THE YOU GUESS GAME. ARE YOU READY TO 
MATCH YOUR WITS AGAINST MY BRAINS? 

I ’LL THINK Of A NUMBER BETWEEN 1 AND 1000 AND 
THEN GIVE YOU A CHANCE TO GUESS THE MYSTERY NUMBER. 

IF YOUR GUESS IS ON TARGET* 1 'LL TELL YOU. If NOT* 

I 'LL TELL YOU IF YOUR GUESS WAS TOO HIGH OR TOO LOW 
«ND GIVE YOU ANOTHER CHANCE. 

IF YOU'RE A GENIUS YOU SHOULD ALWAYS BE AbLE TO GUESS 
THE MYSTERY NUMBER WITH 10 OR FEWER GUESSES. 

WHENEVER YOU WISH TO STOB FLAYING TYRE IN 9999. 


GUESS THE MYSTERY NUMBER BETWEEN 1 AND 1 000? 200 


TOO 

HIGH 

GUESS 

AGAIN? 

100 

TOO 

HIGH 

GUESS 

AGAIN? 

90 

TOO 

HIGH 

GUESS 

AGAIN? 

80 

TOO 

HIGH 

GUESS 

AGAIN? 

70 

TOO 

HIGH 

GUESS 

AGAIN? 

60 

TOO 

HIGH 

GUESS 

AGAIN? 

50 

TOO 

HIGH 

GUESS 

AGAIN? 

40 

TOO 

HIGH 

GUESS 

AGAIN? 

30 

TOO 

HIGH 

GUESS 

AGAIN? 

20 

TOO 

HIGH 

GUESS 

AGAIN? 

10 

TOO 

HIGH 

GUESS 

AGAIN? 

5 

TOO 

LOW GUESS AGAIN? 

6 


CORRECT. 

IT TOOK YOU 13 GUESSES. 


YOU NEED MORE RRACT1CE. IF YOU'RE USING 
YOUR HEAD YOU SHOULD NOT NEED MORE THAN 
10 GUESSES. 


A NEW GAME-HERE WE GO. 

GUESS THE MYSTERY NUMBER BETWEEN 1 AND 1000? 9999 
THANKS FOR FLAYING WITH ME. 

COME BACK SOON. 
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2 

YOU GUESS THE COMPUTER’S 
NUMBER 

2.1 THE GAME: YOU GUESS 

In this chapter you will build your first game pro¬ 
gram. In the game, called YOU GUESS, the computer 
“thinks” of a mystery number and you try to guess it. 
First you have to teach the computer to think of a 
number by using its random number generator. You 
must also show the computer how to go back and play 
the game a second time. Then you teach it to count the 
number of guesses you used to hit upon the number. At 
the end of the chapter I show you two strategies you can 
use to reduce the number of guesses needed to hit upon 
the mystery number. 

Draw a flow chart and write a program that instructs 
the computer to (1) pick a whole number at random 
between 1 and 10 inclusive and (2) let the user guess the 
number. If the user’s guess is incorrect, give him the 
opportunity to guess again. If his guess is correct, tell 
him. Here is the solution or logic for the game: 



YOU GUESS/ELEMENTARY 
FLOW CHART 


2.1.1 USING THE RANDOM NUMBER GENERATOR 

The first step in the new game is to get the computer 
to pick a number between 1 and 10 inclusive. How do 
we get the computer to do that? There is an expression in 
BASIC, denoted by RND(X), which generates a 
number at random between 0 and 1, but excluding 0 and 
1. RND(X) generates at random one number which 
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RND/20 


RND/ACROSS 


OUTPUT 

•2431684 
•04493979 
•2373254 
•9882344 


belongs to the interval indicated by the thick part of the 
following number line. 

< - M -► 

0 1 

To demonstrate RND(X), here is a short program which 
lists 20 random numbers between 0 and 1. 

OUTPUT .2431634 
•2933412 
.7295003 
.3125257 
.3095365 
.04493979 
.4334217 
.4961024 
.5010026 
.04103271 
•2373254 
•3046387 
.1923363 
•9121199 
•241212 
.9332344 
.258 793 7 
•03323139 
.371 1 19 
•9243194 

If you prefer to have the numbers typed across the page 
in five columns instead of being typed one under the 
other, insert a comma after RND(X) in line 20. 


PROGRAM 10 FOR 01 TO 20 
20 PRINT RND< X) 
30 NEXT C 
40 END 


PROGRAM 10 FOR C«1 TO 20 



20 PRINT RNDCX) 
30 NEXT C 

40 END 



•2983412 

•7295003 

•3125257 

.3095365 

•4334217 

•4961024 

•5010026 

•04103271 

•3046337 

• 1923363 

.9121199 

•241212 

.253 7937 

•03323139 

• 871 119 

•9243194 


A comma at the end of a PRINT statement is a signal to 
the computer that the next value printed out is to be 
printed in the next column to the right. The maximum 
number of columns is five. When a sixth number is to be 
printed, it appears in the first column on the next line. 

Look at the two outputs. All the numbers are decimal 
numbers between 0 and 1, and 0 and 1 do not appear in 
the list. All the numbers consist of six or seven non-zero 
digits to the right of the decimal point. On your machine 
you might get fewer or more digits. 
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RND(X) yields only numbers between 0 and 1. To 
generate random whole numbers between 1 and 10 
inclusive we must first multiply RND(X) by 10. This 
will move the decimal point one place to the right and 
give us numbers which belong to the heavy part of the 
number line below. 



01 23456789 10 


To demonstrate that this is the case, we need only 
change line 20 in the last program. 

10 FOR C«1 TO 20 PROGRAM RND/EXPAND 

20 PRINT 10*RND<X># 

30 NEXT C 
40 END 

OUTPUT 


2.431684 

2.933412 

7.295005 

3. 125257 

3.095565 

.4493979 

4.834217 

4.961024 

5*010026 

.4103271 

2.373254 

3.046337 

1.923563 

9.121199 

2.41212 

9.382844 

2.58 7937 

.3323159 

5.7! 1 19 

9.245194 


Look at the output. All numbers are now between 0 and 
10, exclusive of 0 and 10. Multiplication ofRND(X)by 
10 has just expanded or stretched the interval from 0 to 1 
to 0 to 10. 

The list above consists of mixed numbers (such as 
2.431684). We want whole numbers (such as 2). A new 
expression, INT(X), converts mixed numbers into 
whole numbers (integers). INT(X) finds the largest 
whole number less than or equal to X. To see what 
INT(X) does, let’s write a new program which takes 
either a whole or a mixed number, X, and types back the 

greatest whole number. OUTPUT INT 

GIVE ME NUMBER? 7 

PROGRAM IN T 7 I S 7 

5 PRINT M GIVE ME NUMBER M I 
16 INPUT X 

20 PRINT "INT” X W IS*' INTCX) 

25 PRINT 
36 GO TO 5 
46 END 

Look at the output. The computer appears to use the 
following rules to determine INT(X): 

1. If X is a whole number (positive, zero, negative), 

INT(X) produces that whole number. 

2. If X is a positive mixed number, INT(X) is obtained 
by chopping off all digits to the right of the decimal 
point. 

3. If X is a negative mixed number, INT(X) is obtained 
by chopping off all digits to the right of the decimal 
point and then subtracting 1. 


GIVE ME NUMBER? 5*76 
INT 5# 78 IS 5 

GIVE ME NUMBER? - 1. 1 
INT- 1 • 1 IS-2 

GIVE ME NUMBER? -4.9 
INT-4.9 I S~5 

GIVE ME NUMBER? 
tC 


GIVE ME NUMBER? 6 
INT 0 IS 0 

GIVE ME NUMBER? -12 
INT-12 IS-12 
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On a number line, INT(X) produces the largest whole 
number just to the left of the number X. 


X 

1 

X 

1 

X X 

1 1 

X 

1 

X 

1 

▼ 

—5 -4 

f • 1 

▼ 

—3 -2 

▼ ▼ 

— 1 0 1 

▼ 

2 3 

1 * 1 

i 

4 ! 

1 — 

4/ 

t 

t 

k_/ tZ7 

t f 

f 

kJ 

t 

1 

INT(X) 

1 

INT(X) 

1 1 

INT(X) INT(X) 

1 

INT(X) 

1 

INT(X) 


Now that we know how INT(X) works, let’s return to 
the task of generating random whole numbers between 1 
and 10 inclusive. We have already used the expression 
10*RND(X) to create random mixed numbers between 
0 and 10. To transform these mixed numbers into whole 
numbers we use the expression INT(10*RND(X)). This 
will give us numbers indicated by the solid circles on the 
following line. 

◄—• - • • • • • • •-• •-! ► 

01 23456789 10 

To demonstrate INT(10*RND(X)), we further mod¬ 
ify the program RND/EXPAND: 


PROGRAM 10 FOR C» 1 TO 20 

20 PRINT INT< 10*RND(X>>, 
30 NEXT C 
40 END 

2 7 3 

4 4 5 

3 1 9 

2 0 6 


3 

0 

2 

9 


Look at the output. All the numbers are whole numbers 
between 0 and 9 inclusive. But we want whole numbers 
between 1 and 10 inclusive. To get whole numbers 
between 1 and 10 inclusive, we add 1 to the expression 
INT(10*RND(X)). The final expression to generate 
random whole numbers between 1 and 10 inclusive is: 
INT(10*RND(X)) +1. This will produce numbers indi¬ 
cated by the solid circles on the following number line. 

◄—i—•—•—•—•—•—•—•—•—•—•—► 
01 23456789 10 

To demonstrate INT(10*RND(X))+1, we change line 
20 in our program RND/INT. 
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10 

FOR C«1 

TO 20 

PROGRAM 

RND/1 TO 10 


20 

PRINT INTC I0«RNDOO> + 1* 




30 

NEXT C 





40 

EMD 



OUTPUT 

3 


3 

3 

4 

4 

1 


5 

5 

6 

1 

3 


4 

2 

10 

3 

10 


3 

1 

9 

10 


Here is a summary of the steps we just took to generate 
random whole numbers between 1 and 10 inclusive 
using the random number generator, RND(X). When 
used alone, RND(X) will yield numbers between 0 and 
1, 

< - -- 

0 1 

If RND(X) is multiplied by 10, 10*RND(X) will gener¬ 
ate mixed numbers between 0 and 10. 

« (D.. » 

01 23456789 10 

If the “greatest integer” expression is used, 
INT(10*RND(X)) will generate random whole num¬ 
bers between 0 and 9 inclusive. 

◄—. -------• • • 1 ► 

01 23456789 10 

Finally, the expression INT (10*RND (X)) +1 will gen¬ 
erate whole numbers between 1 and 10 inclusive. 


< —i—.—.—«—•—•—•—•—•—•—♦—► 

01 23456789 10 

A parallel procedure will generate random whole num¬ 
bers between 1 and 6, 1 and 52, or between 1 and any 
larger whole number. 

Here is a list of the first numbers generated in each 
demonstration of the five RND(X) programs: 


FIRST 

PROGRAM NUMBER 


RND/20 .2431684 

RND/ACROSS .2431684 

RND/EXPAND 2.431684 

RND/INT 2 

RND/1 TO 10 3 


Despite the fact that we ran the computer five different 
times, the first number in each output is .2431684, or a 
number developed from .2431684. Why does the com¬ 
puter always start with .2431684? That’s hardly a ran¬ 
dom process. 
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Although this is not the actual case, you can imagine 
that the computer contains a list of randomly selected 
numbers. Each time you run a program which uses the 
random number generator, the first number picked by 
the computer for RND(X) is the first number at the top 
of the list. In the machine I used to generate the exam¬ 
ples in this chapter, the first number in the list is 
.2431684, which becomes 3 when the expression 
INT(10*RND(X))+1 is used. If the output is to be truly 
random the computer should start at a randomly selected 
point on the list. The computer will do this if you place 
at the beginning of your program the word RAN¬ 
DOMIZE, or just RANDOM. Here is an illustration of 
the difference. 


RND 

PROGRAM 

OUTPUT 

RND/RANDOM 

PROGRAM 

OUTPUT 

10 FOR C«1 TO 5 
20 PRINT RNDOC) 

30 NEKT G 

40 END 

RUN 

.2431634 

.2933412 

.7295003 

.3125257 

.3095865 

1 RANDOM 

10 FOR CM TO 5 
20 PRINT RNDOC) 
30 NEXT G 

40 END 

RUN 

.4637543 

.975599 

.5097742 

.653346 

.3320474 


READ/ 


HEADY 


HUN 


RJN 


.2431684 

.2933412 

.7295003 

.3125257 

.3095865 


.3652337 
.1650521 
.07313358 
.3534242 
.4472318 


READY 


HEADY 


RUN 


RUN 


.2431684 

.2933412 

.7295003 

.3125257 

.3095365 


.7714387 
.3338021 
.4343336 
.5771742 
.1035318 


HEADY 


READY 


RUN 


HUN 


.2431634 

.2933412 

.7295008 

.3125257 

.3095365 


.04297309 

.6932552 

.677743 

.1572523 

•3437661 


READY 
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The first program, RND was run four times in succes¬ 
sion. You can see that the four outputs are the same. The 
second program, RND/RANDOM, was also run four 
times in succession, but the outputs are different due to 
the use of the command RANDOM in line 1. 

Off-line: 

1. Write a BASIC expression which will generate a 
random whole number between and including: 

A. 1 and 2 B. 1 and 6 C. 1. and 52 

2. Write a BASIC expression which will generate a 
random whole number between and including: 

A. 0 and 8 B. 0 and 21 C. 0 and 46 

3. Write a BASIC expression which will generate a 
random whole number between and including: 

A. 5 and 22 B. 10 and 37 C. 7 and 13 

4. Play computer and give an example of an output 
which could be generated by the following program. 

1 RANDOM 
10 FOR Ol TO 5 
20 LET R»INT< 3*RND< X)) + I 
30 IF R*t THEN 90 
40 IF R*2 THEM 70 
50 PRINT M I LIKE TOO#" 

60 GO TO 100 

70 PRINT " f M FASTER THAN YOU." 

30 GO TO 100 

90 PRINT "COMPUTERS ARE FUN." 

100 NEXT C 
110 PRINT 

120 PRINT "THAT.• S ALL FOLKS." 

130 END 

On-line: 

5. Draw a flow chart and then write a program which 
will type out a list of random whole numbers after 
asking the user for (1) the minimum and maximum t 
random whole number, and for (2) the number of 
whole numbers in the list. Your program should 
produce an output like this: 

I WILL LIST RANDOM WHOLE NUMBERS BETWEEN 
A LOWER NUMBER# L# AND AN UPPER NUMBER# U. 

OWE ME LOWER NUMBER? 2 
GIVE ME UPPER NUMBER? 17 

HOW MANY NUMBERS DO YOU WANT TYPED OUT? 13 

14 17 13 7 9 

10 17 2 6 7 

5 6 3 

THAT WAS EASY. 
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2.1.2 PROGRAMMING YOU GUESS 


So much for teaching the computer to pick a number 



Then I write and test a simple program. 


PROGRAM I RANDOM 

20 LET R-INTCI0*RND<X>)*I 
40 INPUT G 
60 IF G«R THEN 100 
70 PRINT "GUESS AGAIN"! 

80 GO TO 40 
100 PRINT "CORRECT." 

120 END 


OUTPUT ? 2 

GUESS AGAIN7 7 
GUESS AGAIN? 6 
GUESS AGAIN? 9 
GUESS AGAIN? 4 
GUESS AGAIN? 3 
CORRECT. 


Now, assured that the program operates correctly. I’ll 
add some personality. Look at the output of the program 
as it exists. There are no instructions to the human 
player. To make the object of the game clear, insert the 
following text in line 35: 

YOU GUESS/INSTRUCT 

PROGRAM 1 RANDOM 

20 LET R"INT<I0*RND<X>)+I 

35 PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"i 

40 INPUT G 

60 IF G«R THEN 100 

70 PRINT "GUESS AGAIN"! 

30 GO TO 40 
100 PRINT "CORRECT." 

120 END 


OUTPUT GUESS THE NUMBER BETWEEN 1 AND 10? 4 
GUESS AGAIN? 1 
GUESS AGAIN? 8 
GUESS AGAIN? 2 
GUESS AGAIN? 9 
GUESS AGAIN? 3 
GUESS AGAIN? S 
CORRECT. 
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You might wish to add some of the following dialogue: 


PROGRAM 


YOU GUESS/PERSONALITY 


SIGN ON 


SIGN OFF 


1 

-2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 
13 

-14 

15 

20 

35 

40 

60 

70 

80 

100 

120 

—►121 

130 


RANDOM 

PRINT ••THIS PROGRAM IS WRITTEN BY THAT SUPER” 

PRINT ”PROGRAMMER-TED SAGE#” 

PRINT 

PRINT ”WELCOME TO YOU GUESS. ARE YOU READY TO MATCH” 
PRINT ”YOUR WITS AGAINST MY BRAINS?” 

PRINT 

PRINT ”1 *LL THINK OF A NUMBER BETWEEN 1 AND 10 AND” 
PRINT ”THEN *GI VE YOU A CHANCE TO GUESS THE MYSTERY” 
PRINT ”NUMBER# IF YOUR GUESS IS ON TARGET l f LL‘TELL” 
PRINT ”YOU. IF NOT, I 'LL GIVE YOU ANOTHER CHANCE TO” 
PRINT ”GUESS THE NUMBER.” 

PRINT 

PRINT ”GOOD LUCK.” 

PRINT 

LET R*INT<10*RND(X))♦1 

PRINT ”GUESS THE NUMBER BETWEEN 1 AND 10”! 

INPUT G 

IF G*R THEN 100 
PRINT ”GUESS AGAIN”! 

GO TO 40 

PRINT "CORRECT•” 

PRINT 

PRINT ”YOU f RE A GENIUS# COME BACK SOON#” 

END 


OUTPUT 

THIS PROGRAM IS WRITTEN BY THAT SUPER 
PROGRAMMER-TED SAGE. 

WELCOME TO YOU GUESS# ARE YOU READY TO MATCH 
YOUR WITS AGAINST MY BRAINS? 

I 'LL THINK OF A NUMBER BETWEEN 1 AND 10 AND 
THEN GIVE YOU A CHANCE TO GUESS THE MYSTERY 
NUMBER. IF YOUR GUESS IS ON TARGET I*LL TELL 
YOU# IF NOT, I*LL GIVE YOU ANOTHER CHANCE TO 
GUESS THE NUMBER. 

GOOD LUCK# 

GUESS THE NUMBER BETWEEN 1 AND 10? 6 

GUESS AGAIN? 1 

GUESS AGAIN? 3 

GUESS AGAIN? 7 

GUESS AGAIN? 10 

GUESS AGAIN? 9 

GUESS AGAIN? 4 

GUESS AGAIN? 2 

CORRECT. 

YOU 9 RE A GENIUS# COME BACK SOON# 


55 





Fun And Games With The Computer 


YOU GUESS/1 BELL 


As a final feature, you might like to have the bell on 
the terminal ring when the user hits upon the number. 
Look in your manual for the BASIC expression you use 
to make the bell on your terminal ring. On my particular 
machine the expression which rings the bell is 
CHR$(135) following the PRINT command. Nothing is 
actually printed when the bell is rung. To make the bell 
ring once after the message “CORRECT” has been 
typed, I add line 110. 


PROGRAM 


1 RANDOM 

20 LET R»INT<10*RND<X>>♦! 

35 PRINT "GUESS THE NUMBER BETWEEN l AND 10"; 

40 INPUT G 

60 IF G»R THEN 100 

70 PRINT "GUESS AGAIN"; 

80 GO TO 40 
100 PRINT "CORRECT." 

110 PRINT CHR$<135>^- RING BELL 

120 END 


YOU GUESS/5 BELL 


PROGRAM 1 
20 
35 


BELL 

LOOP 


L 


40 

60 

70 

80 

100 

105 

110 

115 

120 


1 

20 

35 

40 

60 

70 

80 

100 

120 


To make the bell ring five times, I write a loop begin¬ 
ning at line 105. Note the use of the semi-colon on line 
110. The semi-colon prevents a line feed each time the 
bell is rung. 

RANDOM 

LET R*INT< 10*RND<X)) + i 

PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"; 
INPUT G 

IF G*R THEN 100 
PRINT "GUESS AGAIN"; 

GO TO 40 

PRINT "CORRECT." 

FOR C*1 TO 5 
PRINT CRR$<I35>; 

NEXT C 
END 


On-line: 


EXERCISE SET 2.1.2 


1. Here is a copy of the program YOU GUESS. 


RANDOM 

LET R*INT( 10*RND(X)) + 1 

PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"; 
INPUT G 

IF G*R THEN 100 
PRINT "GUESS AGAIN"; 

GO TO 40 

PRINT "CORRECT." 

END 


A. Load and run this program to satisfy yourself 
that it plays the game as described. 

B. Following some of the suggestions given in the 
text, add personality to the above program. 
Save this program for further modification in 
the next exercise set. For reference purposes 
I’ll name your program YOU/G1. 
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2. Draw a flow chart and then write a program that 

(1) picks two whole numbers at random between 1 
and 10 inclusive, 

(2) asks the user for the sum of these numbers, 

(3) types “correct” if the answer is right, and 

(4) types the correct sum if the answer is wrong. 
Your program should produce an output like this: 


THIS PROGRAM GIVES YOU PRACTICE AT ADDING— 
NUMBERS BETWEEN ! AND 10. 

HOW MUCH IS 1 ♦ 8 ? 9 

CORRECT* — 


THIS PROGRAM GIVES YOU PRACTICE AT ADDING 
NUMBERS BETWEEN 1 AND 10* 

HOW MUCH IS 10 ♦ 5 ? 14 

93 RRY--ANSWER IS 15 

Call this program ADD 1 and save for further modifica¬ 
tion in the next exercise set. 

2.2 “PLAY IT AGAIN, SAM?” 

When the user plays YOU GUESS, the game ends 
when he guesses the number. If he wants to play the 
game again, he must type the command RUN. This is a 
nuisance. There are several ways to restart the game 
automatically. 

2.2.1 OPTION 1: AUTOMATIC REPLAY — THE 
UNCONDITIONAL LOOP 

From a programming standpoint, the easiest way to 
restart the game is to insert in the program a GO TO 
statement which causes the game to start over automati¬ 
cally after the user finds the mystery number. See line 
110 below. If we adopt this method, however, it will be 
necessary for the user to halt the computer when he 
wants to stop playing. Incidentally, you may want to use 
a blank line to separate successive games. See line 105 
in the following program. ¥ou GUESS/AUTO 

I RANDOM PROGRAM 

20 LET R«INT<10*RND<X)>+1 

35 PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"} 

40 INPUT G 

60 IF G»R THEN 100 

70 PRINT "GUESS AGAIN"! 

30 GO TO 40 
100 PRINT "CORRECT." 

105 PRINT ◄- SKIP A LINE 

110 GO TO 20 -4- RESTART GAME 

120 END 


SAMPLE 
RUN #2 


SAMPLE 
RUN #1 
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OUTPUT GUESS 

THE NUMBER BETWEEN 1 AND 10? 3 

GUESS 

AGAIN? 

2 

GUESS 

AGAIN? 

6 

GUESS 

AGAIN? 

7 

GUESS 

AGAIN? 

9 

GUESS 

AGAIN? 

1 

GUESS 

AGAIN? 

4 

GUESS 

AGAIN? 

5 

GUESS 

AGAIN? 

9 

GUESS AGAIN? 
CORRECT* 

10 


GUESS THE NUMBER BETWEEN I AND 10? 5 
CORRECT* 

GUESS THE NUMBER BETWEEN 1 AND 10? 2 
CORRECT* 

GUESS THE NUMBER BETWEEN 1 AND 10? 
tC 


2.2.2 OPTION 2: ASK THE USER — THE STRING 
VARIABLE 

Another way to restart the game is to ask the user, 
after he guesses the number, if he wishes to play again. 
There are two ways to do this depending on whether or 
not your version of BASIC allows for the input of the 
words “yes” or “no.” When the user is asked to input a 
set of characters like “yes” or “no” in response to a 
question mark, you can instruct the computer to inter¬ 
pret the string of characters as an alphanumeric string. 
An alphanumeric string is a sequence of numbers and/or 
characters from the alphabet. For example, YES, NO, 
ABCDEF, A1B345, 6HO103, FUN99. As you know, 
if the computer is to interpret the entry as a number, you 
use a single letter of the alphabet as the variable name. If 
the computer is to interpret the entry as an alphanumeric 
string, you again use a letter of the alphabet as a variable 
name, but follow it by the dollar sign ($). Thus A$, B$, 
C$, . . ., Z$ denote alphanumeric string variables, or 
just string variables. The maximum length of the string 
on my system is six characters, certainly enough to 
handle words like YES and NO. Consult your manual to 
determine the maximum length of the character string 
your system will accept. 

If your version of BASIC does not accept al¬ 
phanumeric strings, you can tell the user that a response 
of 1 is equivalent to a YES answer and a response of 0 is 
equivalent to a NO answer. Likewise you can just as 
easily have 1 mean NO and 2 mean YES. Let’s write 
two programs, one in which 0 means NO and 1 means 
YES and another in which we use A$ to allow the user 
to type in the words YES and NO. 
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To adopt the convention 0 means NO and 1 means 
YES, we add to the YOU GUESS program lines 
110-135 as shown below. In line 125 we cope with the 
person who refuses to type 0 or 1 in response to the 
instructions. 


PROGRAM 


YOU GUESS/0 OR 1 


PLAY 
AGAIN 
0 = NO 
1 = YES 


1 RANDOM 

20 LET R*INT<10*RND<X>>+1 

35 PRINT "GUESS THE NUMBER BETWEEN l AND 10"* 

40 INPUT G 

60 IF G*R THEN 100 

70 PRINT "GUESS AGAIN"* 

30 GO TO 40 
100 PRINT "CORRECT." 

105 PRINT 

110 PRINT "WOULD YOU LIKE TO PLAY AGAIN?C0»N0*1»YES>"* 

115 INPUT A 

116 PRINT 

120 IF AM THEN 20 

121 IF A*0 THEN 130 

125 PRINT "TYPE 0 OR 1 DUMMY!" 

126 GO TO 110 

130 PRINT "THANKS FOR PLAYING WITH ME#"-i^_ 

135 PRINT "COME BACK SOON#" - 1 SIGN OFF 

140 END 


OUTPUT 

GUESS THE NUMBER BETWEEN 1 AND 10? 3 

GUESS AGAIN? 5 

CORRECT# 

TEST A = 1 —MOULD YOU LIKE TO PLAY AGAIN? ( 0-N0* 1*YES>? 1 

GUESS THE NUMBER BETWEEN 1 AND 10? 2 

GUESS AGAIN? 1 

GUESS AGAIN? 4 

GUESS AGAIN? 7 

GUESS AGAIN? 6 

GUESS AGAIN? 10 

CORRECT# 

TEST A = 9— MOULD YOU LIKE TO PLAY AGAIN?C0«N0*l»YES>? 9 
TYPE 0 OR 1 DUMMY! 

TEST A = 0— ►WOULD YOU LIKE TO PLAY AGAIN? < 0*N0* 1*YES>? 0 

THANKS FOR PLAYING WITH ME# 

COME BACK SOON# 

Now let’s use the string variable A$. Look at line 115 
in the above program, YOU GUESS/0 OR 1. To permit 
the player to type in the words YES or NO, rather than 1 
or 0, the variable A must be replaced by the string 
variable A$. The new line looks like this: 


115 INPUT A$ 
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Now any set of characters entered by the user is given 
the label A$. To determine if the user in fact typed in the 
word YES, you write an IF-THEN statement which 
looks like this: 


IF A$ = “YES” THEN, 


The word YES must be in quotes. This tells the compu¬ 
ter to compare the string of characters labelled A$ with 
the string of characters between the quotes, in this case 
YES. 

If the characters entered by the user are not YES, the 
computer is instructed to test for NO. If the user has not 
typed in either YES or NO, the computer asks him to 
follow instructions. As before, these steps are all carried 
YOU GUESS/YES OR NO out in lines 110 to 135 in the following program. 


PROGRAM 


PLAY 

AGAIN 

YES 

OR 

NO 


1 

20 

35 

40 

60 

70 

80 

100 

105 

110 

115 

116 
120 
121 

125 

126 
130 
135 
1 40 


RANDOM 

LET R*I NT(10*RND(X)) + 1 

PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"! 

INPUT G 

IF G*R THEN 100 
PRINT "GUESS AGAIN"! 

GO TO 40 

PRINT "CORRECT." 

PRINT 

PRINT "WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO)"! 

INPUT AS 

PRINT 


IF AS*"YES" THEN 20 
IF AS*"NO" THEN 130 
PRINT "ANSWER YES OR NO DUMMY!" 

GO TO 110 

PRINT "THANKS FOR PLAYING WITH ME 
PRINT "COME BACK SOON." 

END 



SIGN OFF 


OUTPUT GUESS THE NUMBER BETWEEN 1 AND 10? 2 
CORRECT. 

TEST A$ = ‘‘YES’’ —► WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO)? YES 

GUESS THE NUMBER BETWEEN 1 AND 10? 3 

GUESS AGAIN? 2 

GUESS AGAIN? 1 

GUESS AGAIN? 5 

GUESS AGAIN? 7 

GUESS AGAIN? 4 

GUESS AGAIN? 9 

CORRECT. 

TEST A$ = “MAYBE”— ►WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO)? MAYBE 
ANSWER YES OR NO DUMMY! 

TEST A$ = “NO” —► WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO)? NO 
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2.2.3 OPTION 3: FLAG 99 — BREAKING OUT OF 
THE LOOP 

Option 3 is a refinement of option 1, the automatic 
replay. Instead of having the user type CONTROL C to 
stop the action, we instruct him to type “99” or some 
other code signal. The choice of 99 is arbitrary. Any 
number will do as long as it is not a whole number 
between 1 and 10. Why? The code number signals the 
computer to follow a particular route. In this case it 
instructs the computer to jump to the sign-off message. 

In programming jargon, the code number is known as a 
flag. Here is the program. Note that the test for the flag 
(line 50) comes immediately after the input statement 
(line 40). You want to have the computer look for the 

flag immediately after input. Y0U QUESS/FLAG 99 


l 

10 
1 I 
15 
20 
35 
40 
50 
60 
70 
80 
100 
105 
110 
130 
135 
140 


RANDOM 

PRINT "WHENEVER YOU WISH TO STOP PLAYING" 
PRINT "TYPE IN THE NUMBER 99 ••• 

PRINT 

LET R*INT( 10*RND(X)) + 1 

PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"! 
INPUT G 

IF G«99 THEN 130 < - TEST FOR FLAG 99 

IF G*R THEN 100 


PROGRAM 


PRINT 
GO TO 
PRINT 
PRINT 
GO TO 
PRINT 
PRINT 
END 


"GUESS AGAIN"! 

40 

"CORRECT." 

20 

"THANKS FOR PLAYING WITH ME 
"COME BACK SOON." 


-] 


SIGN OFF 


WHENEVER YOU WISH TO STOP PLAYING OUTPUT 

TYPE IN THE NUMBER 99. 

GUESS THE NUMBER BETWEEN 1 AND 10? 2 

GUESS AGAIN? 3 

GUESS AGAIN? 1 

GUESS AGAIN? 9 

GUESS AGAIN? 3 

GUESS AGAIN? 4 

GUESS AGAIN? 5 

GUESS AGAIN? 6 

GUESS AGAIN? 7 

CORRECT. 

GUESS THE NUMBER BETWEEN 1 AND 10? 8 

GUESS AGAIN? 3 

GUESS AGAIN? 2 

GUESS AGAIN? 5 

CORRECT. 

GUESS THE NUMBER BETWEEN 1 AND 10? 99 <— TEST G = 99 
THANKS FOR PLAYING WITH ME. 

COME BACK SOON. 
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2.2.4 OPTION 4: HOW MANY GAMES? - THE 
CONDITIONAL LOOP 

In this fourth and last option you ask the user to 
specify at the outset the number of games he would like 
to play. Here is a copy of the old flow chart YOU 
GUESS: 


YOU GUESS 
FLOW CHART 



To play the number of games, N, specified by the user, 
we add three boxes to the flow chart. First, before the 
game starts, the computer asks the user the number of 
games he wants to play. 


GET N 


To repeat the game routine automatically N times, we 
build a loop around the game routine itself with the 
words FOR and NEXT. The FOR statement counts off 
the number of times, P, the game is played. When P is 
equal to N, the loop is satisfied and the computer signs 
off. 


Draw the box 


FOR P = 1 TON 


and then the box 


GENERATE 

R 

RND (1-10) 


At the end of the game routine, after 


PRINT 

CORRECT 
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add 


NEXT P 


Here is the revised flow chart for YOU GUESS/HOW 
MANY. 



YOU GUESS/HOW MANY 
FLOW CHART 


From this flow chart the following program is encoded. 
A typical run follows. 


N 

GAMES 

LOOP 


PROGRAM 
1 RANDOM 

10 PRINT "HOW MANY GAMES WOULD YOU LIKE TO PLAY"! 

11 INPUT N 
15 PRINT 

-16 FOR P=»l TO N 

20 LET R*INTC 10*RND<X)) + 1 

35 PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"! 

40 INPUT G 

60 IF G*R THEN 100 

70 PRINT "GUESS AGAIN"! 

80 GO TO 40 
100 PRINT "CORRECT#" 

105 PRINT 
—110 NEXT P 

130 PRINT "THANKS FOR PLAYING WITH ME#" 

135 PRINT "COME BACK SOON." 

140 END 
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OUTPUT 


TEST N = 3 —► HOW MANY GAMES WOULD YOU LIKE TO PLAY? 3 

GUESS THE NUMBER BETWEEN 1 AND 10? 6 

GUESS AGAIN? 9 

CORRECT. 

GUESS THE NUMBER BETWEEN 1 AND 10? 4 

GUESS AGAIN? 2 

CORRECT. 

GUESS THE NUMBER BETWEEN 1 AND 10? 5 

GUESS AGAIN? 7 

GUESS AGAIN? 3 

GUESS AGAIN? 1 

GUESS AGAIN? 10 

GUESS AGAIN? 9 

GUESS AGAIN? 6 

GUESS AGAIN? 2 

CORRECT. 

THANKS FOR PLAYING WITH ME. 

COME BACK SOON. 


Off-line: 

1. Draw a flow chart for the program YOU GUESS/0 
OR 1. I want to be sure you understand the logic of 
the replay option used in this program. Omit compu¬ 
ter personality from the flow chart. 

2. Draw a flow chart for the program YOU GUESS/ 
FLAG 99. 

On-line: 

3. Take the program YOU/G1 saved in exercise set 
2.1.2 and add the replay option of your choice. Call 
this new program YOU/G2 and save it for further 
modification in the next exercise set. 

4. Take the program ADD 1 saved in exercise set 2.1.2 
and add replay option “99.” Call this new program 
ADD 2 and save it for further modification in the 
next exercise set. 

2.3 COUNTING THE NUMBER OF GUESSES 

The whole point of a game in which you try to guess 
the computer’s number, or the computer tries to guess 
your number, is to see how many guesses it takes to hit 
upon the mystery number. We will now modify the 
program YOU GUESS to count the number of guesses 
needed by the user to hit upon the number picked by the 
computer. 

Up to this point, when a counter has been used in a 
program, it has controlled the number of times a particu¬ 
lar event occurred. For example, in chapter 1 a counter 
was used to control the number of messages printed out. 
In the last section a counter was used in a FOR-NEXT 
loop to control the number of times the YOU GUESS 
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game was played. Now we will use a counter, not to 
control but to count the number of times the user 
guesses. Here is the modified flow chart for YOU 
GUESS/COUNT: 



YOU GUESS/COUNT 
FLOW CHART 


In the first box the counter C is set at zero. In the box 
GET G the user makes a guess. Next comes the box 
C = C + 1 which increases the counter by 1. When the 
user finally hits upon the number, the message COR¬ 
RECT is printed. Then we have the computer tell the 
user the number of guesses he made by adding to the 
flow chart the box TELL NUMBER GUESSES, C. 

Here are the resultant program and a typical output. 

PROGRAM 
1 RANDOM 

10 LET C*0 - INITIALIZE COUNTER 

20 LET R*INT<10*RND<X))+1 

35 PRINT -GUESS THE NUMBER BETWEEN i AND 10-1 
40 INPUT G 

50 LET C*C+ 1 *- INCREASE COUNTER 

60 IF G*R THEN 100 
70 PRINT -GUESS AGAIN-J 
30 GO TO 40 
100 PRINT -CORRECT.- 

110 PRINT -IT TOOK YOU- C -GUESSES*- < - PRINTOUT COUNTER 

120 END 
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OUTPUT GUESS THE NUMBER BETWEEN 1 AND 10? 4 
GUESS AGAIN? 3 
GUESS AGAIN? I 
GUESS AGAIN? 7 
GUESS AGAIN? 6 
GUESS AGAIN? 5 
GUESS AGAIN? 9 
GUESS AGAIN? 10 
GUESS AGAIN? 3 
CORRECT* 

IT TOOK YOU 9 GUESSES. 

On-line: 

1. Take program YOU/G 2 which you saved in exer¬ 
cise set 2.2 and add steps which will tell the user the 
number of guesses he required to hit upon the 
number picked by the computer. Call this program 
YOU/G 3 and save. 

2. Take program ADD 2 which you saved in exercise 
set 2.2 and add steps which tell the user, after he 
signals he is finished, the number of problems at¬ 
tempted and the number answered correctly. To do 
this first draw a new flow chart to establish the logic 
of the program and the correct placement of the two 
new counters. Save the program as ADD 3. Your 
program should produce an output like this: 

THIS PROGRAM GIVES YOU PRACTICE AT ADDING 

NUMBERS BETWEEN 1 AND 10. 

VHENEVER YOU WISH TO QUIT TYPE 99. 

HOW MUCH IS 3 ♦ 4 ? 7 

CORRECT# 

HOW MUCH IS 3 ♦ 4 ? 12 

CORRECT. 

HOW MUCH IS 4 ♦ 3 ? 6 

SORRY—ANSWER IS 7 

HOW MUCH IS 2 ♦ 7 ? 9 

CORRECT. 

HOW MUCH IS 2 ♦ 3 ? 99 

YOU GOT 3 PROBLEMS OUT OF 4 RIGHT. 

HOPE YOU HAD FUN. 

GOOD LUCK IN ARITHMETIC. 

2.4 “TOO HIGH TOO LOW”: BRANCHING 
REVISITED 

Up to now, when playing YOU GUESS, you had to 
rely on sheer luck to outwit the computer. When asked 
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to make your first guess, you selected some number 
between 1 and 10 and hoped for the best. More often 
than not you had to guess again. Your second guess was 
also a blind guess, although we assume you avoided the 
number you picked the first time. You kept up this 
process of blind guessing until by luck you hit on the 
number selected by the computer. Of course if your first 
nine guesses were wrong, your tenth guess had to be 
right. You simply guessed the one number between 1 
and 10 which you had not yet tried. 

We can help the user hit upon the mystery number 
more quickly if we give him more information about 
each guess he makes. Instead of just telling him his 
guess was wrong, we instruct the computer to tell the 
user whether it was too high or too low. With this 
feedback the user knows whether to make his next guess 
higher or lower than his last one. 

Let’s start with a copy of the YOU GUESS flow 
chart. 



YOU GUESS 
FLOW CHART 


The flow chart already asks the question: IS G = R? If 
the answer is NO, one or the other of two questions will 
establish whether the guess is high or low: (1) IS 
G > R? (2) IS G < R? That makes three questions. 
But it isn’t necessary to include all three questions in the 
flow chart. Since there are only three possible 
categories into which the user’s guess can fall, if it 
doesn’t fit in two of them, it must belong in the third. 
One or the other of the two additional questions is 
inserted in a new diamond at the bottom exit of the old 
diamond, IS G = R? Does it matter which question is 
used? No, it doesn’t. If question (1) is used, the flow 
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chart looks like this: 


YOU GUESS/G > R 
FLOW CHART 



If question (2) is used, the flow chart looks like this: 


YOU GUESS/G < R 
FLOW CHART 
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Here is a program based on the second flow chart. 

1 RANDOM 

20 LET R*INT<10*RND<X>>♦1 

35 PRINT ••GUESS THE NUMBER BETWEEN I AND 10**! 
40 INPUT G 
60 IF G*R THEN 100 
70 IF G<R THEN 90 

30 PRINT M TOO HIGH* GUESS AGAIN***! ◄ —IF G > R 
85 GO TO 40 

90 PRINT * f T00 LOW* GUESS AGAIN. M J ◄ -IF G < R 

95 GO TO 40 

100 PRINT "CORRECT." ◄- IF G = R 

120 END 


GUESS THE NUMBER BETWEEN 1 AND 10? 5 OUTPUT 
TOO LOW. GUESS AGAIN.? 7 
700 HIGH* GUESS AGAIN*? 6 
CORRECT. 

On-line: 

1. Take the program YOU/G3 which you saved in 
exercise set 2.3 and add steps which will inform the 
user if his guess is too high or too low. Save this new 
program as YOU/G4 for future modification. 

2.5 EXPANDING THE INTERVAL 

With the addition of the helpful hints, TOO HIGH, 

TOO LOW, the number of guesses needed to hit upon 
the computer’s number is reduced. Now it is feasible to 
have the computer pick its number from a larger set of 
numbers. In fact, we can let the user decide how dif¬ 
ficult he wants to make the game by having him set the 
limits within which the computer will “think” of a 
mystery number. 

Suppose the user wants to play YOU GUESS bet¬ 
ween 4 and 17 inclusive. To generate a whole number 
between 4 and 17 inclusive the computer first calculates 
the number of whole numbers between 4 and 17 inclu¬ 
sive by subtracting 4 from 17 and adding 1. The result is 
17 — 4 + 1, or 14. Next the computer multiplies 14 
times RND(X). This expression will generate mixed 
numbers indicated by the heavy part of the line below. 


0 i H i . . I . . . I .. 

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 

The next step is to use INT(X) to obtain whole numbers. 
INT(14*RND(X}) will generate whole numbers indi¬ 
cated by the solid circles. 

◄—*—*—•—•—•—•—•—•—•—•—•—•—•—•—i—► 
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 


PROGRAM 
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This is not yet the set of 14 numbers you want. To obtain 
the desired set, the lower limit, 4, must be added to each 
of the above whole numbers. This produces the expres¬ 
sion INT(14*RND(X))+4 which will generate the 
whole numbers indicated below. 


◄—h 

o 


H-1-•-•-•-•-•-•-•-•-•-•-•-•-•-•-► 

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 


Now let’s derive a general expression for generating 
whole numbers between a lower number, L, and an 
upper number, U. The computer first calculates the 
number of whole numbers by using the expression 
U—L+l. Next it multiplies this expression times 
RND(X). This gives (U-L+ 1)*RND(X). The third 
step is to convert the mixed numbers to whole numbers 
using INT(X). Thus, INT(U-L+1)*RND(X)). Fi¬ 
nally, it shifts the number by adding the lower limit, L. 


YOU GUESS 
FLOW CHART 



The new flow chart looks like this: 


YOU GUESS/EXPAND 
FLOW CHART 
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The first box we added is GET UPPER NUMBER, U. 
The second box is GET LOWER NUMBER, L. Then 
we modified the box GENERATE R RND (1-10) to 
read GENERATE R RND (L - U). 

From this flow chart we write the following program: 


I RANDOM 

—>10 PRINT "GIVE ME LOWER AND UPPER NUMBERS"* 

—>14 INPUT L#U 

—>20 LET R*INT<(U-L>1 >*RND(X> >>L 
—>35 PRINT "GUESS THE NUMBER BETWEEN" L "AND" U* 
40 INPUT G 
60 IF G*R THEN 100 
70 PRINT "GUESS AGAIN"* 

80 GO TO 40 
100 PRINT "CORRECT." 

120 END 


Look at line 20. It contains the expression we just 
developed to generate random whole numbers between 
L and U inclusive. Here is a typical game played under 
the new rules. 


GIVE ME LOWER AND UPPER NUMBERS? 10# 16 

GUESS THE NUMBER BETWEEN 10 AND 16 ? 12 

GUESS AGAIN? 14 

GUESS AGAIN? 16 

GUESS AGAIN? 15 

CORRECT. 


EXERCISE SET 2.5 


On-line: 

1. Take your addition program, ADD 3, which you 
saved in exercise set 2.3 and add steps to allow the 
user to specify the two numbers between which the 
computer is to pick its two numbers. Make sure your 
flag signalling the computer to stop running your 
program is not a possible correct answer to an 
addition problem. Your program should produce an 


PROGRAM 


OUTPUT 
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output like this: 


THIS PROGRAM GIVES YOU PRACTICE AT ADDING 
NUMBERS BETWEEN TWO WHOLE NUMBERS* 

GIVE ME SMALLER NUMBER? 4 
GIVE ME LARGER NUMBER? 17 

WENEVER YOU WISH TO QUIT TYPE 35 

HOW MUCH IS 10 ♦ 16 ? 26 

CORRECT. 

HOW MUCH IS 6 + 12 ? 18 

CORRECT. 

HOW MUCH IS 6 ♦ 12 ? 17 

90RRY--ANSWER IS 18 

HOW MUCH IS 6 ♦ 13 ? 19 

CORRECT. 

HOW MUCH IS 7 ♦ 5 ? 35 

YOU GOT 3 PROBLEMS OUT OF 4 RIGHT. 

HOPE YOU HAD FUN. 

GOOD LUCK IN ARITHMETIC* 


It won’t be necessary to save this program. It will not be 
used in any future exercises. 


2.6 PLAYING THE GAME: DEVELOPING A 
STRATEGY 

By now you’ve probably discovered that there is a 
smart way and a dumb way to play YOU GUESS. No 
doubt you’re using the smart way. In any case, in this 
section I’m going to spell out for you two strategies, a 
smart one and a not-so-smart one. 


2.6.1 THE RANDOM METHOD 

Here is a typical game I played with my computer. 
The computer is using a program similar to your pro¬ 
gram YOU/G 4 which you developed in exercise set 
2.4. That was the one in which you added the hints TOO 
HIGH and TOO LOW. The current program differs 
from YOU/G 4, however, in that I have expanded the 
interval from 1 to 10, to 1 to 1000 and changed the flag 
from 99 to 9999. 
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WELCOME TO TOO GUESS THE MYSTERY NUMBER* OUTPUT 1 YOU/G4 

VHENEWER YOU WISH TO QUIT TYPE 9999. 

GUESS THE NUMBER BETWEEN 1 AND 1000? 4 

TOO LOW* GUESS AGAIN? 687 

TOO HIGH. GUESS AGAIN? 432 

TOO HIGH. GUESS AGAIN? 401 

TOO LOW* GUESS AGAIN? 402 

TOO LOW. GUESS AGAIN? 421 

TOO LOW* GUESS AGAIN? 428 

CORRECT. 

IT TOOK YOU 7 GUESSES. 

GUESS THE NUMBER BETWEEN I AND 1000? 9999 
THANKS FOR PLAYING WITH ME. 

COME BACK SOON. 

Only seven guesses! Can you figure out the method I 
used to pick the numbers 4, 687, 432, 401, 402, 421, 

428? 

Here’s what I did. At the start I knew the computer’s 
number was a whole number in the interval indicated by 
the heavy line below. The end points are solid circles 
because the computer could have picked 1 or 1000. 


COMPUTER’S 

NUMBER 

428 



For my first guess I picked a number at random from the 
interval 1 to 1000. I picked 4. 


COMPUTER’S 

NUMBER 

428 



MY GUESS 


The computer told me this guess was too low. I now 
knew the computer’s number belonged to the following 
interval. The left end point is 5, one more than the last 
guess. 

COMPUTER’S 

NUMBER 

428 
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For my second guess I picked at random the number 687 
from the interval 5 to 1000. 


COMPUTER’S 

NUMBER 

428 



5 | 1000 


687 

MY GUESS 

The computer told me this was too high. The computer 
must be thinking of a number in the following interval. 
The right end point is 686, or one less than the last 
guess. 

COMPUTER’S 

NUMBER 

428 


♦if- 1 -3-1000* 

5 686 


◄—COMPUTER’S NUMBER IN HERE—► 


My next guess was 432. 


COMPUTER’S 

NUMBER 

428 


^_ll 

r * -] 


♦ll 

t -1 

1000" 


5 | 686 

432 

MY GUESS 


The computer told me this was too high. The 
computer’s number must be in the following interval. 


COMPUTER’S 

NUMBER 

428 


^ 1 1 

r * 

i ^ 

♦H 

_ 

1000" 


5 431 


◄-► 

COMPUTER S NUMBER 
IN HERE 


My fourth guess was 401. Let me change the scale of the 
number line and only show the interval of current in¬ 


terest. 


COMPUTER’S 

NUMBER 

428 



5 


4- 

431 
401 

MY GUESS 
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This guess was too low. The computer’s number must 
be between 402 and 431. 


COMPUTER’S 

NUMBER 

428 



402 431 

*-COMPUTER’S NUMBER IN HERE-► 


My fifth random guess was 402. 


COMPUTER’S 

NUMBER 

428 



r 


MY GUESS 

This was also too low. The computer’s number must be 
in the interval 403 to 431. 


COMPUTER’S 

NUMBER 

428 



My sixth guess was 421. 


COMPUTER’S 

NUMBER 

428 



421 

MY GUESS 


This was too low. The computer’s number is now in the 
interval 422 to 431. 


COMPUTER’S 

NUMBER 

428 
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YOU/G4 


My seventh guess was 428. 


*-£ 


COMPUTER’S 

NUMBER 

428 

i 

r 

428 

MY GUESS 



Right on! I hit upon the computer’s number in seven 
guesses. Not bad considering the scheme I used. Let me 
call the routine or algorithm just described the Random 
Method. 


2.6.2 THE MIDPOINT METHOD 

There’s another strategy which can be used to guess the 
computer’s number. In fact, I wouldn’t be surprised if 
you already have tried it. Let me show you a game in 
which I used the new strategy. To make it easy to 
compare the new method with the Random Method, I 
asked the computer to “think” of the same number, 
428. 


OUTPUT 2 WELCOME TO YOU GUESS THE MYSTERY NUMBER. 

WHENEVER YOU WISH TO QUIT TYPE 9999. 

GUESS THE NUMBER BETWEEN 1 AND 1000? 500 

TOO HIGH. GUESS AGAIN? 250 

TOO LOW. GUESS AGAIN? 375 

TOO LOW. GUESS AGAIN? 437 

TOO HIGH. GUESS AGAIN? 406 

TOO LOW. GUESS AGAIN? 421 

TOO LOW. GUESS AGAIN? 429 

TOO HIGH. GUESS AGAIN? 425 

TOO LOW. GUESS AGAIN? 427 

TOO LOW. GUESS AGAIN? 428 

CORRECT. 

IT TOOK YOU 10 GUESSES. 

GUESS THE NUMBER BETWEEN 1 AND 1000? 9999 
THANKS FOR PLAYING WITH ME. 

COME BACK SOON. 


It would appear that the new strategy is not as efficient 
as the Random Method since it took three more guesses. 
Let me use number lines to illustrate the new algorithm, 
which I’ll call the Midpoint Method. 

At the start the computer’s number is a whole number 
in the following interval. 
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COMPUTER’S 

NUMBER 

428 



1 


1000 


◄-COMPUTER’S NUMBER IN HERE-► 


For my first guess I picked 500, the number “midway” 
between 1 and 1000. (The midpoint number is really 
500.5) This was too high, so I knew the computer’s 
number was between 1 and 500. 


COMPUTER’S 

NUMBER 

428 



r * -I 



_ 

p 

1000 r 


500 


◄-► 

COMPUTER’S NUMBER 
IN HERE 


My second guess was 250. It was too low. The 
computer’s number must be between 250 and 500. 

COMPUTER’S 

NUMBER 

428 


* 1 

r + i 

i p 

1 

_ 

1000^ 


250 500 

◄-► 

COMPUTER’S NUMBER 


IN HERE 


My third guess was 375, halfway between 250 and 500. 
It was too low. Note the change in scale. 


COMPUTER’S 

NUMBER 

428 



375 500 

◄-COMPUTER’S NUMBER IN HERE-► 


I had to do a little arithmetic to make my fourth guess. I 
wanted the number halfway between 375 and 500. 

375 + 500 _ 875 _ 43? 5 
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I chopped 437.5 off to 437. That’s equivalent to finding 
INT(437.5). My fourth guess of 437 was too high. 


COMPUTER’S 

NUMBER 

428 



375 437 

< -COMPUTER’S NUMBER IN HERE-► 


My fifth guess was the average of 375 and 437, or 406. 


375 + 437 
2 



That was too low. 




COMPUTER’S 

NUMBER 

428 

i 




-COMPUTER’S NUMBER IN HERE-► 


My sixth guess was the average of 406 and 437. 


406 + 437 
2 


= 421.5 


I chopped 421.5 off to 421. That was too low. 




COMPUTER’S 

NUMBER 

428 


"ih* 

437 

COMPUTER S NUMBER IN HERE-► 


The seventh guess was the average of 421 and 437, or 
429. 


421 + 437 
2 



That was too high. 




t 


COMPUTER’S 

NUMBER 

428 


429 


> 


COMPUTER’S NUMBER IN HERE 
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The eighth guess was 425, the average of 421 and 429. 


421 + 429 _ 850 
2 ~ 2 


425. 


That was too low. 




COMPUTER’S 

NUMBER 

428 


- 3 - 

429 


◄-COMPUTER’S NUMBER IN HERE-► 


The ninth guess was 427, the number halfway between 
425 and 429. That was too low. 


COMPUTER’S 

NUMBER 

428 



427 429 


◄-COMPUTER’S NUMBER IN HERE-► 


The tenth guess, 428, halfway between 427 and 429, 
was correct. 

Step by step we trapped the computer’s number in the 
middle of an interval 2 units in length. What is the 
maximum number of guesses necessary to hit upon the 
mystery number by this method? I’ll give you the ans¬ 
wer to this question in the next chapter when I compare 
the efficiency of the Midpoint and Random Strategies. 

■■■■■■■■ EXERCISE SET 2.6 ■■■■■■■■ 

On-line: 

1. Take your program YOU/G4, which y<ju saved in 
exercise set 2.4 and (1) make the interval from 
which the computer picks its number 1 to 1000, and 
(2) make the code number to signal the end of play a 
number outside the interval. After saving this pro¬ 
gram as YOU/G6, perform the following experi¬ 
ments. 

A. Run your program YOU/G6 and play enough 
games using the Random Method to answer the 
following questions. Determine 

(1) the least number of guesses, 

(2) the most number of guesses, and 

(3) the average number of guesses needed to 
hit upon the mystery number. 

B. Run your program YOU/G6 and play enough 
games using the Midpoint Method to answer 
the following questions. Determine 

(1) the least number of guesses, 

(2) the most number of guesses, and 

(3) the average number of guesses needed to 
hit upon the mystery number. 
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*****WELCOME TO THE PERFECT GUESSING MACHINE***** 

THINK OF A WHOLE NUMBER BETWEEN 1 AND 1000 
AND KEEP IT IN YOUR HEAD* 

I WILL TRY TO GUESS IT WITHIN 10 TRIES. 

YOU MUST TELL ME IF MY GUESS IS HIGH, LOW, OR 
RIGHT. TYPE H (FOR HIGH), L (FOR LOW), R (FOR RIGHT). 

VHENEVER YOU WISH TO STOP PLAYING TYPE IN 
THE WORD DONE. 

AWAY WE GO. 


THINK OF A NUMBER BETWEEN 1 AND 1000. 
I GUESS 500 ? H 

I GUESS 250 ? L 

I GUESS 375 ? L 

I GUESS 437 ? H 

I GUESS 406 ? H 

I GUESS 390 ? L 

I GUESS 398 ? L 

I GUESS 402 ? H 

I GUESS 400 7 R 

I’M SMART! 

I TOOK 9 GUESSES. 


THINK OF A NUMBER BETWEEN 1 AND 1000. 
I GUESS 500 ? L 

I GUESS 750 7 H 

I GUESS 625 7 H 

I GUESS 562 7 L 

I GUESS 593 7 H 

I GUESS 577 7 H 

I GUESS 569 7 H 

I GUESS 565 7 H 

I GUESS 563 7 H 

I GUESS 562 7 H 

YOU CHEATED. JUST FOR THAT I QUIT. 
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3 

THE COMPUTER GUESSES YOUR 
NUMBER 


In the last chapter we programmed the computer to 
play the game YOU GUESS. You learned how to use 
RND (X) and INT(X) to generate numbers at random. 
Furthermore, you saw a short program enlarged to in¬ 
clude a replay option, a counter for the number of 
guesses, and the helpful hints of too high and too low. 
You then expanded the interval within which the com¬ 
puter picked the mystery number and learned two 
strategies you could use to find it. In this chapter we turn 
the tables; you pick the mystery number and the compu¬ 
ter tries to find it. You will learn to use a subscripted 
variable to set up “check lists” and “tally lists.” In the 
last section you will compare the efficiency of the Ran¬ 
dom and Midpoint methods by using the speed of the 
computer to play one thousand COMPUTER GUESS 
games by each method. 


3.1 TURNING THE TABLES: COMPUTER GUESS 

We will develop three programs, each of which 
guides the computer in finding the mystery number. In 
following the first program, however, the computer, 
unlike the human, is unable to remember any of the 
numbers it has already tried. The second and third 
programs remedy that defect. The computer does not 
guess the same number twice and behaves more like a 
human. The two “memory” programs differ only in 
length. The first one is based on your current knowledge 
of BASIC; the second takes advantage of a new capabil¬ 
ity, the subscripted variable, to accomplish the same 
results in only one-quarter of the steps. 


3.1.1 REPEATING WRONG GUESSES 

The first new COMPUTER GUESS program will 
be similar to YOU GUESS, the program developed in 
Chapter 2. To see the similarities and differences be¬ 
tween these two games, look at the elementary flow 
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chart for YOU GUESS: 


YOU GUESS 
FLOW CHART 



In this flow chart of YOU GUESS the steps taken by 
you, the human player, are printed in boxes with dashed 
lines. As before, the boxes with solid lines contain the 
steps taken by the computer. 

In the first step of COMPUTER GUESS you, the 
user, think of a mystery number between 1 and 10. 
Since this is your move, we’ll enclose it in dashed lines. 

USER THINKS”| 

OF NUMBER | 

lJi 10 _J 

Now the computer takes its first step. 


COMPUTER 
GENERATES GUESS 
G 

RND (1-10) 


Having generated a guess, the computer must next print 
the number so you can read it. 


TELL USER 
GUESS 
G 


Next you, the user, tell the computer if it has hit upon 
the mystery number. If the computer is correct, you type 
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in the word YES. If it is incorrect you type in NO. To 
allow for the input of the words YES and NO, I’ll use 
the string variable A$. 


GET USER’S 
RESPONSE 
A $ 


After you type in YES or NO, the computer compares 
your input with the word YES. 



If your answer is YES, the computer has correctly 
guessed the mystery number and the game is over. If 
your answer is NO, the computer missed the target and 
must guess again. Here’s the complete flow chart for the 
new game COMPUTER GUESS/ELEMENTARY. 



I have written the following program based on the 
above flow chart. Line 10 prompts you, the user, to take 
the action specified in the box with the dashed lines. 
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PROGRAM 1 RANDOM 

10 PRINT •'THINK Of A NUMBER FROM 1 TO 10." 
20 LET G-1NTC 10*RND<X))*1 
40 PRINT M I GUESS" Gl 
60 INPUT AS 

80 IF AS*"YES" THEN 120 
100 GO TO 20 
128 PRINT "I *M SMART." 

140 END 

Here is a typical game played using my program. The 
mystery number is 6. 

OUTPUT THINK OF A NUMBER FROM 1 TO 10. 



GUESS 

5 

? 

NO 


GUESS 

8 

? 

NO 


GUESS 

10 

7 NO 


GUESS 

10 

7 NO 


GUESS 

2 

7 

NO 


GUESS 

7 

? 

NO 


GUESS 

5 

? 

NO 


GUESS 

3 

? 

NO 


GUESS 

2 

? 

NO 


GUESS 

9 

7 

NO 


GUESS 

7 

7 

NO 


GUESS 

8 

7 

NO 


GUESS 

3 

7 

NO 


GUESS 

4 

7 

NO 


GUESS 

7 

7 

NO 


GUESS 

1 

7 

NO 


GUESS 

8 

7 

NO 


GUESS 

7 

7 

NO 


GUESS 

8 

7 

NO 


GUESS 

6 

7 

NO 


GUESS 

4 

7 

NO 


GUESS 

9 

7 

NO 


GUESS 

8 

7 

NO 


GUESS 

4 

7 

NO 


GUESS 

10 

7 NO 


GUESS 

10 

7 NO 


GUESS 

2 

7 

NO 


GUESS 

6 

7 

YES 


'M SMART. 




Although the computer says, “I’M SMART,” I’m not 
so sure. The computer required 28 guesses before it hit 
upon the number 6 in the narrow range from 1 to 10. 
Why did it take the computer so long to guess the 
number 6 when it followed this particular program? 


EXERCISE SET 3.1.1 


On-line: 

1. Add the following features to the program COM¬ 
PUTER GUESS/ELEMENTARY. Then load and 


run your new program. 

A. Steps which give the user more instructions on 
how to play the game. 
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B. Steps which cause the bell to ring five times 
after I’M SMART is printed. Be sure to sup¬ 
press the line feed after the ringing of each bell. 

C. Steps to handle words other than YES or NO in 
response to the computer’s guess. For exam¬ 
ple, the user might type in MAYBE. (If you’re 
stuck, refer to the program YOU GUESS/YES 
OR NO in section 2.2.2.) 

3.1.2 PREVENTING DUPLICATE GUESSES 

In the typical run of COMPUTER GUESS shown in 
the last section, the computer often tried the same 
number, for example 8, several times. Can we invent a 
scheme whereby the computer keeps track of its previ¬ 
ous guesses and does not guess the same number twice? 
When you played YOU GUESS in the last chapter, you 
probably kept track of previous guesses by using a 
mental check list. Or you looked at the printout to make 
sure you didn’t duplicate any of your previous guesses. 
In this section we’ll program the computer to keep a 
check list. After it picks a number at random, it must 
consult the list to see if it has already tried that number. 
If it has not, it will ask the user if that number is the 
mystery number, at the same time putting a “check 
mark’’ next to the number in the list to indicate it has 
been tried. 

If I were to use a check list, it would look like this: 

Number Check When Tried 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

If I pick 3 as my guess, I look at the list, see no check 
mark in the “Check When Tried’’ column, and thus 
know the number has not been previously tried. After 
several tries, the list might look like this. 

Number Check When Tried 

—i-v- 

2 

3 V 

4 V 

5 

6 V 

7 

8 

9 

io V 
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Now I pick 6 as my next guess. I look at the list, see the 
check mark in the second column, and know that 6 has 
been tried before. I must keep on until I get a number 
which is not 1,3,4, 6, or 10.1 keep generating numbers 
randomly and eventually select 5. I put a check mark in 
the second column next to 5 before proceeding. 

The guessing routine followed by a human player is 
clear. Let’s teach it to the computer. First, we assign a 
unique variable name to each of the numbers from 1 to 
10. For example, let N1 represent the number 1, N2 
represent the number 2, etc. Second, instead of a check 
mark, we’ll use the number one (1) to indicate a number 
has been tried. We’ll use the number zero (0) if it has not 
been tried. The numbers 1 and 0 are used as flags. 
Remember you used 99 as a flag to terminate play of 
YOU GUESS in Chapter 2. 

Here is the computer’s check list at the start of the 
game COMPUTER GUESS: 


Variable 

N1 

N2 

N3 

N4 

N5 

N6 

N7 

N8 

N9 

Nj0 


Check When Tried 

ft 

J0 

J0 

J0 

J0 

ft 


You just learned something new. Numerical variable 
names in BASIC may be denoted not only by a single 
letter of the alphabet but also by a single letter of the 
alphabet followed by a digit j0—9. Thus, A6, Z9, Q8, 
B3 are valid variable names in BASIC. Notice that we 
used Nj0 to represent 10. 

After several guesses the computer’s check list looks 
like this: 


Variable 

N1 

N2 

N3 

N4 

N5 

N6 

N7 

N8 

N9 

N0 


Check When Tried 
1 

J0 

1 

1 

J0 

1 

J0 

J0 

J0 

1 


The above list is represented in the computer this way: 
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LABEL 

N1 

N2 

N3 

N4 

N5 

N6 

N7 

N8 

N9 

N0 

CONTENTS 

1 

0 

1 

1 

0 

1 

0 

0 

0 

l 


The computer’s next guess is 6. It looks at the box 
labeled N6 and sees the number 1, the signal that 6 has 
already been tried. The computer continues picking 
numbers at random until it gets a number which is not 1, 
3, 4, 6, or 10. The number is 5. It puts a 1 in the box 
labeled N5 and asks the user if 5 is the mystery number. 

Now that we have a way to prevent duplicate guess¬ 
ing, we shall write two new programs to play the game 
COMPUTER GUESS. Both programs are modifica¬ 
tions of our old one. The first new program will be long 
but easy to follow. Most programs develop this way. 
The first version is long and clumsy, and is is not until 
the programmer has “lived” with it a while that he 
discovers a more elegant form. 

To write the new programs, let us look again at the 
flow chart for the elementary version of COMPUTER 
GUESS. The dashed box, USER THINKS OF 
NUMBER 1-10, has been omitted. 



Two additions to this flow chart are required to imple¬ 
ment the check list. 

1. Set up the check list. At the top of the flow chart the 
variables N1, N2, N3,. . ., N0 must be defined and 
given initial values of zero. This is called “initiali¬ 
zation of the check list.” 


87 









Fun And Games With The Computer 


COMPUTER GUESS/CHECK 


2. After the computer generates a number, it must 
determine if the number has been previously tried. 



The additions to the flow chart are encoded in BASIC 
as follows: 

1. The first addition, INITIALIZE CHECK LIST, can 
be programmed as: 

10 LET N1*0 

11 LET N2*0 

12 LET N3*0 

13 LET N4*0 

14 LET N5«0 

15 LET N6*0 

16 LET N7»0 

17 LET N8*0 

18 LET N8*0 

19 LET N0*0 

I have used line numbers 10 to 19 so these new lines 
will fit into my old program. 

2. The second addition, DETERMINE IF G HAS 
BEEN TRIED BEFORE, is more complicated and it 
is wise to draw a flow chart first. The procedure is as 
follows. Each time the computer generates a ran¬ 
dom number, G, it must determine what number it 
generated: 1,2, 3,. . ., or 10. Then it must examine 
the contents of the box corresponding to that 
number. If there is a 1 in the box, the number has 
already been tried and the computer must go back 
and pick another number. If it is J6 , the computer 
inserts a 1 in the box and asks the user if the number 
generated is the mystery number. When the interval 
is 1 to 10, nineteen diamonds are required in the 
flow chart, nine to determine the value of G and ten 
to check the contents of the boxes. 
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I shall now encode the foregoing flow chart in BASIC 
and add it to my old program. Since the new routine will 
not fit between lines 20 and 40 of my old program I will 
add line 30, GO TO 200, and at line 200 I’ll begin the 
new routine. 


200 

IF 

6*1 THEN 

310 

201 

IF 

6*2 THEN 

320 

202 

IF 

6*3 THEM 

330 

203 

IF 

6*4 THEM 

340 

204 

IF 

6*5 THEM 

350 

205 

IF 

6*6 THEN 

360 

206 

IF 

6*7 THEN 

370 

207 

IF 

6*8 THEM 

380 

208 

IF 

6*9 THEM 

390 

300 

IF 

M0*1 THEN 

20 

301 

LET M0*1 


302 

60 

TO 40 


310 

IF 

Ml*1 THEM 

20 

311 

LET Ml*1 


312 

60 

TO 40 


320 

IF 

N2*1 THEM 

20 

321 

LET M2*1 


322 

GO 

TO 40 


330 

IF 

M3*1 THEM 

20 

331 

LET M3*1 


332 

60 

TO 40 


340 

IF 

M4*1 THEM 

20 

341 

LET N4*l 


342 

GO 

TO 40 


350 

IF 

N5*1 THEM 

20 

351 

LET N5*1 


352 

60 

TO 40 


360 

IF 

M6*1 THEM 

20 

361 

LET M6«l 


362 

GO 

TO 40 


370 

IF 

M7*t THEM 

20 

371 

LET M7*1 


372 

GO 

TO 40 


380 

IF 

M3*1 THEM 

20 

381 

LET M3*1 


382 

60 

TO 40 


390 

IF 

M9*1 THEM 

20 

39 1 

LET M9*1 


392 

60 

TO 40 



The instruction to inspect the box labeled N1 is put on 
line 310. The instruction to inspect box N2 is placed on 
line 320, etc. That is, I made the 10’s digit in the line 
number equal the digit in the variable name. On which 
line did I put the instruction to inspect box N9? This 
mnemonic will help you locate these operations in the 
program. 

Now we’re going to insert the routines to IN¬ 
ITIALIZE CHECK LIST and DETERMINE IF G HAS 
BEEN TRIED BEFORE in our old version of COM¬ 
PUTER GUESS. The END statement must be shifted to 
line 400 and a STOP statement must be inserted after 
I’M SMART. 
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1 

9 


INITIALIZE 

CHECK 

LIST 


I— i 0 
11 
12 

13 

14 

15 

16 

17 

18 
1—19 

20 

30 

40 

60 

80 

100 

120 


G 

TRIED 

BEFORE 


140 

r— 200 
201 
202 

203 

204 

205 

206 

207 

208 

300 

301 

302 

310 

311 

312 

320 

321 

322 

330 

331 

332 

340 

341 

342 

350 

351 

352 

360 

361 

362 

370 

371 

372 

380 

381 

382 
390 
39 1 

L-392 


400 


RAf|00M COMPUTER GUESS/19 QUESTIONS 

PRINT "THINK OF A NUMBER FROM 1 TO 10." PROGRAM 

LET N1»0 

LET N2*0 

LET N3*0 

LET N4*0 

LET N5»0 

LET N6=»0 

LET N7*0 

LET N8»0 

LET N9*0 


LET N0*0 

LET G*INT(10*RND<X>>+1 
GO TO 200 
PRINT "I GUESS" G1 
INPUT AS 

IF AS»"YES" THEN 120 
GO TO 20 

PRINT "I*M SMART." 

STOP 

IF G»1 THEN 310 
IF G«2 THEN 320 
IF 6*3 THEN 330 
IF G*4 THEN 340 
IF G«5 THEN 350 
IF G»6 THEN 360 
IF G*7 THEN 370 
IF G*8 THEN 380 
IF G*9 THEN 390 
IF N0«1 THEN 20 
LET N0*1 
GO TO 40 
IF N1* 1 THEN 20 
LET Nl»! 

GO TO 40 

IF N2 3 * 1 THEN 20 

LET N2*l 

GO TO 40 

IF N3«l THEN 20 

LET N3*1 

GO TO 40 

IF N4*l THEN 20 

LET N4*1 

GO TO 40 

IF N5*1 THEN 20 

LET N5»1 

GO TO 40 

IF N6»l THEN 20 

LET N6*l 

GO TO 40 

IF N7*l THEN 20 

LET N7*1 

GO TO 40 

IF N8*l THEN 20 

LET N8*l 

GO TO 40 

IF N9«l THEN 20 

LET N9*l 

GO TO 40 

END 
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Here is a typical game played using the new program. 
The mystery number was 6. 

OUTPUT THINK OF A NUMBER FROM 1 TO 10. 

I GUESS 7 ? NO 

I GUESS 5 ? NO 

I GUESS 10 ? NO 

I GUESS 4 ? NO 

I GUESS 1 ? NO 

I GUESS 6 ? YES 

I *M SMART. 

Compare the above output with the output of the origi¬ 
nal version of COMPUTER GUESS shown earlier in 
this section. Following the old program, the computer 
took twenty-eight guesses; following the new program 
it took only six. 


EXERCISE SET 3.1.2 


Off-line: 

1. Which of the following symbols are valid names for 
numerical variables? That is, which set of symbols 
may be used to hold a place for a number in BASIC? 


A) T D) M$ G) Q 

B) DD E) F$2 H) 6T 

C) Z6 F) AB6 I) J2 


2. Here is the program for a COMPUTER GUESS 
game in which the human thinks of a number be¬ 
tween 1 and 3. Add the check list routine to prevent 
the computer from trying the same number twice. 


1 RANDOM 

10 PRINT "THINK OF A NUMBER FROM i TO 3." 
20 LET R*INT< 3*RND<X)) + 1 
40 PRINT "I GUESS" G* 

60 INPUT AS 

80 IF A$a"YES" THEN 120 
100 GO TO 20 
120 PRINT "I f M SMART." 

140 END 


3. Now let’s turn the tables back again. Here is a 
program for a YOU GUESS game in which the 
computer thinks of a mystery number between 1 and 
5. When the user tries to guess the mystery number, 
he might forget his previous guesses and try the 
same number a second time. Insert in the program 
the check list routine developed for COMPUTER 
GUESS to enable the computer to determine 
whether the user has tried that number before and, if 
so, to respond DUMMY! YOU’VE ALREADY 
GUESSED THAT NUMBER. 
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1 RANDOM 

10 PRINT "I *M THINKING OF A MYSTERY NUMBER BETWEEN 1 AND 5*" 
20 LET R*INT<5*RND(K> >♦ l 

35 PRINT ••GUESS THE NUMBER BETWEEN 1 AND 5"* 

40 INPUT G 

60 IF G=R THEN 100 

70 PRINT M GUESS AGAIN"* 

30 GO TO 40 

100 PRINT "CORRECT." 

120 END 

3.1.3 PREVENTING DUPLICATE GUESSES: THE 

SHORT WAY 

Here is a technique that will dramatically reduce 
the length of the routine to prevent duplicate 
guesses. To this point numerical variables have 
been represented by a letter of the alphabet, or by a 
letter of the alphabet followed by a digit 0-9. Now 
we add a third method in which numerical variables 
are represented by a subscript. Subscripted vari¬ 
ables look like Ai, A2, A3, A4, . . .orBi,B2,B3, 

B 4 , . . . or like Ci, C 2 , C3, C4 . . . , etc. Sub¬ 
scripted variables are written by using a letter of the 
alphabet and then attaching as a subscript the posi¬ 
tive whole numbers 1, 2, 3, 4 and so on. The value 
of the subscript is only limited by the size of your 
computer. Check your computer manual for the 
maximum and minimum value of a subscript. In 
some versions of BASIC the value of a subscript 
may be zero. 

Most terminals will not accommodate symbols 
that look like Ai, A2, A3, . . . . So, when pro¬ 
gramming in BASIC, we indicate subscripted vari¬ 
ables by writing A(l), A(2), A(3), .... The com¬ 
puter interprets these symbols, which we read “A 
sub 1,” “A sub 2,” “A sub 3,” etc. as symbols for 
subscripted variables. Be sure not to confuse A(l) 
with AI or with A. A(l) and AI are different sym¬ 
bols and have different meanings. With subscripted 
variables our check list now looks like this: 


LABEL 

N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

CONTENTS 












In COMPUTER GUESS, N(3) is the label of a box 
the contents of which must be examined to deter¬ 
mine if a 3 has been tried. N(7) is the label of a box 
the contents of which must be examined to deter¬ 
mine if a 7 has been previously selected. What is the 
label of the box you would look at to determine if the 
number 2 had been previously selected? The general 
form of the subscripted variable is N(I), where I 
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holds a place for the value of the subscript. Of 
course, any other letter of the alphabet could have 
been used in place of I. 

We are now ready to write a short version of the 
COMPUTER GUESS program using the sub¬ 
scripted variable. To do this, we refer to the same 
flow chart we used in writing the long version. Here 
again is the flow chart, including the two routines 
INITIALIZE CHECK LIST and DETERMINE IF 
G HAS BEEN TRIED. 


COMPUTER GUESS/CHECK 
FLOW CHART 



As in writing the long version, let us first encode 
each of the two routines to be added to the elemen¬ 
tary version of COMPUTER GUESS. The first 
routine, INITIALIZE CHECK LIST, puts zeroes in 
each of the ten boxes. In the long program, ten lines 
were required to put zeroes in the ten boxes. Using 
the subscripted variable we do it in three: 

5 FOR I = 1 TO 10 

6 LET N(I) = 0 

7 NEXT I 

To verify that these three lines put a zero in each of the 
ten boxes, let’s play computer and execute these steps 
longhand. For bookkeeping purposes, set up an array of 
ten boxes appropriately labeled, and one box to keep 
track of the value of I. 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 
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Look at line 5. The value of I goes from 1 to 10 in steps 
of 1. When 1 = 1, LET N(I) = 0 becomes LET 
N(l) = 0. The computer’s memory looks like this. 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 










1 


When 1 = 2, LET N(I) = 0 becomes LET N(2) = 0. 
The computer’s memory now looks like this: 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 









2 


When I = 3, LET N(I) = 0 becomes LET N(3) = 0. 
The computer’s memory now looks like this: 


N( 1) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 








3 


This schematic shows the computer’s memory at each 
step in the initializing routine. 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 

0 







4 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 

0 

0 






5 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 

0 

0 

0 





6 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 

J0 

0 

J0 





7 


N( 1) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

J0 

J0 

J0 

0 

0 

0 

0 

0 



8 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 

0 

0 

0 

0 

0 

0 


9 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

I 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10 
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Those three short steps in your program 

FOR I = 1 TO 10 
LET N(I) = 0 
NEXT I 

did a lot of work in the computer. 

When you use a subscripted variable in a program, 
you must reserve at the outset an adequate number of 
storage boxes in the computer’s memory. In this par¬ 
ticular program we need ten memory spaces set aside. 
At the beginning of the program we write DIM N(10) 
where DIM is an abbreviation for the word DIMEN¬ 
SION. If you were programming the computer to play 
COMPUTER GUESS in the interval 1-25, you would 
write DIM N(25). If you wanted to play COMPUTER 
GUESS between 1 and some number X, you would 
have to decide beforehand the maximum value of X, 
say 100, and write DIM N(100). You cannot write DIM 
N(X) and later give a value to X by inserting INPUT X 
in the program. The computer must know at the begin¬ 
ning of the program the maximum number of boxes that 
may be required, but you don’t have to use them all. 
DIM N(100) would thus allow the user to play COM¬ 
PUTER GUESS between 1 and any number up to 100. 
Finally, if you needed three subscripted variables in a 
program, you could for example write DIM A(16), 
M(6), D(12) all on one line. 

To sum up, here are the four lines we will use to 
initialize the check list in COMPUTER GUESS 1 TO 
10, utilizing the subscripted variable and the DIM 
statement. 


2 DIM N(10) 

5 FOR I = 1 TO 10 

6 LET N(I) = 0 

7 NEXT I 

Now to use the subscripted variable to construct the 
second routine which will determine if a number has 
already been tried. The routine DETERMINE IF G 
HAS BEEN TRIED BEFORE will first be represented 
in a flow chart. Assume the computer has just generated 
a number G between 1 and 10. The next step is to 
determine if the number has already been tried. To do 
this the computer looks in box N(G). For example, if the 
computer generated 8 as the value of G, it looks in the 
box labeled N(8). If it generated 2, it looks in N(2). 
Suppose G is 7, which box must be inspected? Here is 
the flow chart for this routine. 





The Computer Guesses Your Number 



G TRIED BEFORE/1 DIAMOND 
FLOW CHART 


Compare this flow chart with the earlier chart for the 
same routine. The long way required nineteen 
diamonds; the short way only one. 

Here is the flow chart which combines the two 
routines, INITIALIZE CHECK LIST and DETER¬ 
MINE IF G HAS BEEN TRIED BEFORE, with the 
elementary flow chart for COMPUTER GUESS. 
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The following program is encoded from this flow chart. 

PROGRAM 1 RANDOM 

2 DIM NC10) 

INITIALIZE p!0 FOR 1*1 TO 10 
CHECK 11 LET N<I>*0 
LIST I—12 NEXT I 

15 PRINT "THINK OF A NUMBER FROM 1 TO 10." 

20 LET G-INTC10*RND<X>>+1 
G TRIED r-30 IF N<G>*1 THEN 20 
BEFORE L 35 LET g>*1 

40 PRINT "I GUESS" GI 

60 INPUT AS 

80 IF A$*"YES" THEN 120 
100 GO TO 20 
120 PRINT "I f M SMART." 

140 END 

OUTPUT THINK OF A NUMBER FROM 1 TO 10. 

I GUESS 2 ? NO 
I GUESS 10 ? NO 
I GUESS 4 ? NO 
I GUESS 7 ? NO 
I GUESS 1 ? NO 
I GUESS 5 ? NO 
I GUESS 6 ? YES 
I*M SMART. 


Compare this program with the long program in the 
previous section. The long way required 60 steps; the 
short way only 15! 


EXERCISE SET 3.1.3 


Off-line: 


Play computer and determine the output generated 
by each of the following programs. Then add an 
appropriate DIM statement which will tell the com¬ 
puter the exact number of boxes to set aside for the 
subscripted variable(s) in the programs. 


A) 10 FOR 1*1 TO 5 
20 LET A(I> *1 
30 NEXT I 
40 FOR 1*1 TO 5 
50 PRINT A(l) 

60 NEXT I 
70 END 


B) 10 FOR J*1 TO 10 
20 LET N(J)*3 
30 NEXT J 

40 PRINT N(2)*N(4) 
50 END 


C) 10 FOR A* l TO 5 
20 LET A< A)*2*A 
30 LET B( A) *A( A) 

40 NEXT A 
50 PRINT B< 4) ♦AC 3) 
60 END 


D) 10 FOR X*5 TO 10 
20 LET A(X)«X 
30 LET A<X+1>*A<X> 

40 NEXT X 
50 LET X*l! 

60 PRINT A<X)*A<X-1> 
70 END 
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E) 10 LET P< 1>*I 
20 FDR Q«2 TO 10 
30 LET P<Q)»P<Q-1)+Q 
40 NEXT Q 
50 FOR P* 1 TO 10 
60 PRINT P<P) 

70 NEXT P 
80 END 

2. Here is the elementary version of a YOU GUESS 
program in which the computer thinks of a number 
between 1 and 20. When you try to guess the 
computer’s number, you might forget your previous 
guesses and try the same number twice. Use the 
subscripted variable to set up a check list routine that 
will enable the computer to determine whether you 
have tried that number before and, if so, respond 
with the message: DUMMY! YOU’ VE ALREADY 
TRIED THAT NUMBER. 

1 RANDOM 

10 PRINT "I f M THINKING OF A MYSTERY NUMBER BETWEEN 1 AND 20." 
20 LET R»INT<20*RND<X)>+l 

35 PRINT "GUESS THE NUMBER BETWEEN 1 AND 20." 

40 INPUT G 

60 IF G»R THEN 100 

70 PRINT "GUESS AGAIN"; 

80 GO TO 40 
100 PRINT "CORRECT." 

120 END 

On-line: 

3. Add all of the following features to the most recent 
version of COMPUTER GUESS, COMPUTER 
GUESS/1 QUESTION; then load and run your 
new program. Name this program COM/G1 
and save for further modification in the next 
exercise set. 

A. Steps which give the user more instructions on 
how to play the game. 

B. Steps which cause the bell to ring five times 
after I’M SMART is printed. Be sure to sup¬ 
press the line feed each time the bell rings. 

C. Steps to handle MAYBE, or any word other 
than YES or NO, in response to the computer’s 
guess. 

4. Draw a flow chart and write a program that will 
produce a listing of all the whole numbers between 
1 and 25 inclusive in random order. Each number 
between 1 and 25 inclusive should appear only once 
in the list and the list should contain 25 numbers. 

Your program should generate an output like this. 


24 

12 

23 

21 

20 

17 

25 

5 

3 

10 

6 

1 

16 

4 

13 

19 

9 

18 

15 

2 

14 

11 

7 

22 

8 
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3.2 “PLAY IT AGAIN, SAM?” 

As in YOU GUESS, let’s give the user the opportu¬ 
nity to replay COMPUTER GUESS without typing in 
RUN each time. Recall the replay options explained in 
section 2.2. Briefly they were: (1) Automatic Replay. 
At the end of the game you inserted a GO TO statement 
which directed the computer back to the beginning of 
the game. When the user wanted to stop playing, he 
halted the computer by typing CONTROL C. (2) Ask 
the User. The computer asked the user at the end of each 
game whether he wished to play again. The string vari¬ 
able enabled the user to respond with the words YES 
and NO. (3) Flag 99. You built into your program a 
code number, 99, which the user typed in when he 
wanted to quit playing. (4) How Many Games? At the 
start of the program the computer asked the user how 
many games he wanted to play. A FOR-NEXT loop 
then directed the computer to play the number of games 
the user specified. 

Even though the tables have been turned in this chap¬ 
ter, the program steps for three of the four replay options 
remain the same. Only the Flag 99 option needs to be 
modified. Look again at the YOU GUESS program with 

YOU GUESS/FLAG 99 the Flag 99 °P tlon - 

PROGRAM 1 RANDOM 

10 PRINT "WHENEVER YOU WISH TO STOP PLAYING” 

11 PRINT "TYPE IN THE NUMBER 99." 

15 PRINT 

20 LET R*INT<10*RND(X>>♦! 

35 PRINT "GUESS THE NUMBER BETWEEN 1 AND 10"! 

40 INPUT G 

50 IF G«99 THEN 130 

60 IF G*R THEN 100 

70 PRINT "GUESS AGAIN"! 

30 GO TO 40 
100 PRINT "CORRECT." 

105 PRINT 
110 GO TO 20 

130 PRINT "THANHS FOR PLAYING." 

135 PRINT "COME BACH SOON." 

140 END 


Locate and identify the following features in the above 

program. 

(1) The steps to instruct the user how to terminate 
play. 

(2) The step which determines if the user typed in the 
flag 99. 

(3) The step which directs the computer to restart the 
game. 

(4) The steps to type out the sign-off message if the 
flag has been typed in by the user. 

The instructions occur in lines 10 and 11. The flag test 

occurs in line 50. Restart occurs in line 110. Sign-off 
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occurs in lines 130 and 135. Where would you insert 
these four functions in the following COMPUTER 
GUESS program? 

COMPUTER GUESS/1 QUESTION 

1 RANDOM PROGRAM 

2 DIM N<10) 

10 FOR 1*1 TO 10 
1 1 LET N<I)*0 
12 NEXT I 

15 PRINT "THINK OF A NUMBER FROM 1 TO 10." 

20 LET 6*1NTC10*RND(X))♦1 
30 IF N(6)*l THEN 20 
35 LET N< 6)* 1 
40 PRINT "I GUESS** G1 
60 INPUT A$ 

80 IF A$»"YES" THEN 120 
100 GO TO 20 
120 PRINT M I*M SMART." 

140 END 

The two steps that give instructions should go in ahead 
of line 10. The only space available is between lines 2 
and 10. Let’s use lines 5 and 6. 

5 PRINT “WHENEVER YOU WISH TO STOP 
PLAYING” 

6 PRINT “TYPE IN THE NUMBER 99.” 

The step to restart the game should be inserted after the 
computer types out the message I’M SMART. Let’s use 
line 130. Since the game starts at line 10 with the 
initialization of the check list, the GO TO statement is: 

130 GO TO 10 

The steps to sign off occur at the end of the program. 

Let’s use lines 140 and 145, and make line 150 the new 
location for the END statement. 

140 PRINT “THANKS FOR PLAYING.” 

145 PRINT “COME BACK SOON.” 

150 END 

Now to find a location for the flag test. Only one line in 
the COMPUTER GUESS program gives the user an 
opportunity to type in any response, including 99. It is 
line 60, INPUT A$. Thus the flag test must come after 
line 60, but before the test for YES on line 80. Let’s use 
line 70. Which of the following IF-THEN statements 
would you use? 

(1) 70 IF A$ = 99 THEN 140 

(2) 70 IF A$ = “99” THEN 140 

The correct choice is (2). Here is the reason. The string 
variable A$ appears in line 60. The word INPUT also 
appears in line 60. Any set of characters typed in by the 
user in response jto the question mark generated by the 
word INPUT on line 60 will be assigned to A$. You 
must immediately instruct the computer to determine if 
the set of characters assigned to A$ is the same as the 
string of characters in the flag, that is 99. To test if the 
string of characters typed in by the user is 99, the 99 you 
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insert in line 70 must be in quotes. Here is COMPUTER 
GUESS with the Flag 99 option. 

COMPUTER GUESS/FLAG “99” 

PROGRAM 1 RANDOM 

2 DIM N<10) 

FLAG 5 PRINT "WHENEVER YOU WISH TO STOP PLAITING" 
INSTRUCTION L$ PRINT "TYPE IN THE NUMBER *9." 

7 PRINT 

10 FOR 1*1 TO 10 

11 LET N<I)*0 

12 NEXT I 

15 PRINT "THINK OF A NUMBER FROM 1 TO 10." 

20 LET G*INT(10*RND(X))>I 
30 IF N(G>*1 THEN 20 
35 LET N(G>*1 
40 PRINT "I GUESS" G* 

60 INPUT AS 

70 IF AS*"99" THEN 140 * - FLAG “99” 

80 IF AS*"YES" THEN 120 
100 GO TO 20 
120 PRINT "I'M SMART." 

125 PRINT 

130 GO TO 10 ^- RESTART GAME 

SIGN r~140 PRINT "THANKS FOR PLAYING." 

OFF 1-145 PRINT "COME BACK SOON." 

150 END 


Here is a typical game played using the above program: 


OUTPUT VHBNEVER YOU WISH TO STOP PLAYING 
TYPE IN THE NUMBER 99. 

THINK OF A NUMBER FROM 1 TO 10. 

I GUESS 5 T NO 
I GUESS 10 7 NO 
I GUESS 4 7 NO 
I GUESS 6 7 YES 
I*M SMART. 

THINK OF A NUMBER FROM 1 TO 10. 

I GUESS 8 7 99 
THANKS FOR PLAYING. 

COME BACK SOON. 


When used as a flag to terminate the game, the number 
99 does not mean much to the human player. DONE or 
QUIT would be better, but we couldn’t use these words 
in the program YOU GUESS in Chapter 2 because the 
computer was looking for numbers in response to the 
question mark generated by the statement, INPUT G. 
Now that we have an input statement, INPUT A$, 
which looks at all inputs as a string of alphanumeric 
characters, we can use DONE or any other'word. To use 
DONE as a flag, we change the instruction to the user in 
line 6, and insert DONE between quotes in line 70. 


102 



The Computer Guesses Your Number 


1 RANDOM 

2 DIM N<10> 

5 PRINT "WHENEVER YOU WISH TO STOP 

6 PRINT "TYPE IN THE WORD DONE*" - 

7 PRINT 

10 FOR 1*1 TO 10 
I 1 LET NCI>*0 
12 NEXT I 

15 PRINT "THINK OF A NUMBER FROM 1 TO 

20 LET G*INT(10*RNDCX ) ) + l 

30 IF N< G>*1 THEN 20 

35 LET N< G)* 1 

40 PRINT "I GUESS" GJ 

60 INPUT AS 

70 IF AS*"DONE" THEN 140* - 

80 IF A$*"YES" THEN 120 
100 GO TO 20 
120 PRINT "I'M SMART." 

125 PRINT 
130 GO TO 10 

140 PRINT "THANKS FOR PLAYING." 

145 PRINT "COME BACK SOON." 

150 END 


COMPUTER GUESS/FLAG “DONE” 

PLAYING" PR0GRAM 

- SPECIFY FLAG 


10 . 


FLAG "DONE” 


VHENEVER YOU WISH TO STOP PLAYING OUTPUT 

TYPE IN THE WORD DONE. 

THINK OF A NUMBER FROM 1 TO 10. 

I GUESS 1 ? NO 

I GUESS 7 ? NO 

I GUESS 8 7 NO 

I GUESS 3 7 YES 

I'M SMART. 


THINK OF A NUMBER FROM 1 TO 10* 
I GUESS 2 7 DONE 
THANKS FOR PLAYING. 

03ME BACK SOON. 


On-line: 


EXERCISE SET 3.2 


1. Take your COMPUTER GUESS program, 
COM/G1, which you saved in exercise set 3.1.3. 
Add steps to this program to permit the user to signal 
the end of play by typing in a flag which is either a 
word or a number. Call this new program COM/G2 
and save for further modification in the next exer¬ 
cise set. 


3.3 COUNTING THE NUMBER OF GUESSES 

The next feature we will add to our COMPUTER 
GUESS game is a counter to keep track of the number of 
guesses made by the computer. Remember, in order to 
count the number of guesses in a game, three steps are 
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required. (1) A step which sets a counter at zero. (2) A 
step which increases the counter by 1 each time the 
computer makes a guess. (3) A step which prints out the 
number of guesses. They’re shown here in three boxes. 


c = o 


c = c + i 


IT TOOK ME 
C 

GUESSES 


If C represents the counter, where in the following flow 
chart of COMPUTER GUESS would you put the three 
boxes? 


COMPUTER GUESS/1 QUESTION 
FLOWCHART 



First, let’s set the counter at zero by inserting 


c = o 
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before the box 


O- 


GENERATE 

GUESS 

G 

RND (1-10) 


Now you must decide if you want to count the number of 
times the computer generates a number between 1 and 
10, or the number of guesses finally typed out at the 
terminal. There is a difference; the first number, the 
count before screening for duplication, is larger than the 
second. Eventually we’ll count both activities, but first 
we’ll count only the number of guesses which are typed 
out at the terminal. The box 


C = C + 1 


must, therefore, be inserted in the branch that departs 
from the NO exit of the first diamond. In short, it goes 
between the diamond in which you ask‘‘Is this number a 
duplicate?” and the diamond in which you essentially 
ask, “Is this a correct guess?” The box 


C = C + 1 


is inserted after the box 


N ( Gj) = i 


The third box, 


IT TOOK ME 
C 

GUESSES 


should be inserted after 


PRINT 
I’M SMART 
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COMPUTER GUESS/COUNT GUESSES 
FLOW CHART 



PROGRAM l RANDOM program. 

2 DIM N(10) 

10 FOR I»l TO 10 

11 LET N<I>«0 

12 NEXT I 

14 LET C»0 4- INITIALIZE COUNTER 

15 PRINT "THINK OF A NUMBER FROM 1 TO 10." 

20 LET G»INT<10*RND(X>>+! 

30 IF N(Q)«I THEN 20 

35 LET NIG)-I 

36 LET C*0 I •«- INCREASE COUNTER 

40 PRINT "I GUESS" 01 
60 INPUT AS 

80 IF AS»"YES" THEN 120 
100 GO TO 20 

120 PRINT "I*M SMART." 

121 PRINT "IT TOOK ME ONLY" C "GUESSES.">«- PRINT OUT COUNTER 

140 END 
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THINK OF A NUMBER FROM 1 TO 10. OUTPUT 

I GUESS 10 ? NO 
I GUESS 5 ? NO 
I GUESS 3 7 NO 
I GUESS 8 ? NO 
I GUESS 6 ? NO 
I GUESS 9 ? NO 
I GUESS 7 ? NO 
I GUESS 2 ? YES 
I'M SMART. 

IT TOOK ME ONLY 3 GUESSES. 

An interesting aspect of the way the computer plays 
the game, but one which we never see, is the number of 
times the computer must generate a number between 1 
and 10 in order to come up with a number which passes 
the “no duplicates” test. In the last game, COMPU¬ 
TER GUESS/COUNT GUESSES, the computer typed 
out eight guesses.Was that the number of random num¬ 
bers generated by the statement: 20 LET G = 
INT(10*RND(X)) + 1? Probably not. 

To count the number of times the computer generates 
a number between 1 and 10, three steps should be added 
to the program COMPUTER GUESS/COUNT 
GUESSES. They are: 

13 LET T = 0 

21 LET T = T + 1 

123 PRINT “BUT I HAD TO GENERATE” 

T“RANDOM NUMBERS.” 


Insert the new counter, T, immediately after the state¬ 
ment which generates the random number, that is line 
20. Here is the complete program which counts the 
number of whole numbers randomly generated and the 

number of guesses typed out. COMPUTER GUESS/COUNT G 


1 RANDOM PROGRAM 

2 DIM N(10) 

10 FOR 1*1 TO 10 

11 LET N(I)*0 

12 NEXT I 

1 3 LET T*0 * - INITIALIZE NEW COUNTER 

14 LET C*0 

15 PRINT "THINK OF A NUMBER FROM 1 TO 10." 

20 LET G*INT <10*RND(X>)♦1 

21 LET T*T+ 1 ■* - INCREASE NEW COUNTER 

30 IF N<G>* 1 THEN 20 

35 LET N<G»*t 

36 LET C*C+1 

40 PRINT "I GUESS" Gi 
60 INPUT AS 

30 IF A$*"YBS" THEN 120 
100 GO TO 20 

120 PRINT "I'M SMART." 

121 PRINT "IT TOOK ME ONLY" C "GUESSES." 


122 PRINT 

123 PRINT "BUT I HAD TO GENERATE" T "RANDOM NUMBERS." 
140 END 


PRINT OUT 
NEW COUNTER 
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OUTPUT THINK OF A NUMBER FROM 1 TO 10* 

I GUESS 8 ? NO 
I GUESS 7 ? NO 
I GUESS 9 ? NO 
I GUESS 4 ? NO 
I GUESS 2 ? NO 
I GUESS 1 ? NO 
I GUESS 3 ? YES 
I *M SMART# 

IT TOOK ME ONLY 7 GUESSES# 

BUT I HAD TO GENERATE 10 RANDOM NUMBERS# 

On-line: 

1. Take your COMPUTER GUESS program, COM/ 
G2, which you saved in exercise set 3.2 and add 
steps to count the number of guesses typed out by 
the computer in order to hit upon the user’s number. 
Add a second counter to count the number of whole 
numbers randomly generated by the computer in 
guessing the user’s number. This new program will 
not be used again. 

2. Draw a flow chart and write a program that will list 
in random order all of the whole numbers between 1 
and 52 inclusive. Each number between 1 and 52 
should appear only once in the list so that the list 
contains 52 numbers. After all the numbers have 
been listed, have the program type out the number of 
whole numbers randomly generated by the compu¬ 
ter. On the average, how many whole numbers do 
you think the computer must randomly generate in 
order to produce a list without duplicates? Your 
program should produce an output like this: 


47 

13 

15 

51 

14 

48 

6 

13 

19 

9 

5 

1 1 

35 

17 

41 

8 

52 

4 

24 

36 

42 

21 

39 

30 

29 

37 

49 

10 

40 

43 

33 

23 

32 

34 

7 

44 

2 

38 

31 

27 

28 

1 

20 

16 

46 

3 

25 

45 

26 

12 

22 

50 




BUT I HAD TO 

GENERATE 

182 RANDOM NUMBERS. 




3.4 "TOO HIGH 

TOO LOW’’ 

: THE RANDOM 


METHOD 

In Chapter 2 we instructed the computer to tell the 
user, after each guess, whether his guess was too high, 
too low, or right on. This information enabled the user 
to make his next guess smaller or larger and to develop 
two guessing strategies. One strategy was called the 
Random Method and the other the Midpoint Method. 
Both methods were described in detail in section 2.6. 
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Now that we have turned the tables, we would like to 
teach the computer the Random Method for guessing 
the mystery number the human user was thinking of. In 
developing our new program, COMPUTER 
GUESS/RANDOM METHOD, it is unnecessary to 
have the computer keep a check list of previous guesses. 
As long as it operates on the feedback information typed 
in by the human player, it will be impossible for the 
computer to guess the same number again. For exam¬ 
ple, suppose I mentally pick 3 as the mystery number to 
be guessed by the computer. For its first guess the 
computer is to select a whole number at random from 
the interval 1 to 10 inclusive. Here is a graphic represen¬ 
tation of the problem confronting the computer. 

MY NUMBER 


3 



Say 7 is the first number generated by the computer. 

MY NUMBER 


3 



7 

COMPUTER 

GUESSES 


I respond by typing in H for high. The computer must 
now generate a whole number which belongs to the 
interval 1-6. 

MY NUMBER 


3 



Say 2 is the next number it generated. 


MY NUMBER 
3 



2 

COMPUTER 

GUESSES 
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I respond by typing L for low. The computer must now 
generate a number which belongs to the interval 3-6. 

MY NUMBER 


i 



MY NUMBER 
IN HERE 


Say 5 is the third number generated. 

MY NUMBER 


i 



3 | 6 


5 

COMPUTER 

GUESSES 

I respond by typing H for high. Computer must now 
generate a number which belongs to the interval 3-4. 

MY NUMBER 


1 



MY NUMBER 
IN HERE 


Say 3 is the next number selected. 

MY NUMBER 


i 



3 4 


t 

COMPUTER 

GUESSES 

I respond by typing R for right and the game is over. 

Let me repeat the foregoing description using vari¬ 
able names for the left boundary (A) and right boundary 
(B) of the interval and for the computer’s guesses (G). 
Thus, the first guess is a number belonging to the 
interval A to B inclusive where A is 1 and B is 10. 

MY NUMBER 


3 
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The computer generates 7 for its first guess, denoted by 
G. 

MY NUMBER 


3 



7 

G 


This is too high, so B is redefined as 6, or 1 less than G. 
That is, B = G — 1. Thus, the next guess is from: 

MY NUMBER 


3 



MY NUMBER IN HERE-► 


The next guess is 2. 

MY NUMBER 


3 



2 

G 


Since 2 is too low, the left boundary, A, must be moved 
towards the right, or 1 beyond the last guess. That is, 
A = G + 1 or 3. The next guess is from: 

MY NUMBER 

i 


A B 



MY NUMBER 
IN HERE 


The next guess is 5. 

MY NUMBER 

i 


A B 



5 

G 
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Since 5 is too high, B is moved to the left. Thus, 
B = G — 1 or 4. The next guess is from: 


MY NUMBER 


i 

A B 


I 

r i 

i 

1 

L J 

w 

10 


MY NUMBER 
IN HERE 


The next guess is 3. 

MY NUMBER 

1 


A B 


^ i 

r i 

i ^ 

1 

L J 

10 


t 

G 


The computer has hit upon my mystery number and the 
game is over. 

Now that the routine for our new COMPUTER 
GUESS game has been laid out in detail, let’s draw a 
flow chart which specifies the sequence of steps to be 
followed. The first step is to define the end points of the 
interval from which the computer is to make its initial 
guess. 


A = 1 
B = 10 


The next step is to have the computer generate a random 
whole number between A and B inclusive. 
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If the user did not type in R, then the computer must 
determine if he typed H or L. Let’s program it first to 
look for H. 


What if the user has typed in neither R nor H? Do we 
need a third diamond to test for an L? No, if the user has 
cooperated by typing in H, R, or L, then the NO exit 
from the above diamond leaves L as the only alterna¬ 
tive. Here is the flow chart to this point. 




There are two branches to be completed, one YES 
and one NO. Take the YES branch first. That is, the 
computer’s guess was too large and its next guess must 
be a smaller number. To insure that the next guess is 
smaller, the right end point of the interval, B, must be 
made one less than the last guess. Thus B = G — 1. 



Now for the NO branch. That is, the computer’s 
guess was too small and its next guess must be a larger 
number. To insure that the next guess is larger, the left 
end point of the interval, A, must be made one more 
than the last guess. Thus A = G + 1. 


A G G + 1 B 
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After either of these events, B = G - 1 or 
A = G + 1, the next step is to loop back to the box 
where the computer generates a number between A and 
B. Here is the complete flow chart. 


COMPUTER GUESS/RANDOM METHOD 
FLOW CHART 



From this flow chart the following program is written 
and tested. 

PROGRAM 1 RANDOM 

15 LET B-10^''- INITIAL INTERVAL 

16 PRINT "THINK Of A NUMBER FROM 1 TO 10." 

20 LET 0»INTC(B-A+1)*RND<X)»+A4— GENERATE GUESS 
40 PRINT "I GUESS" GJ 
60 INPUT AS 
80 IF A$*»"R" THEN 200 
100 IF AS»”H" THEN 160 

120 LET A>G+1 + - NEW LEFT END POINT 

140 GO TO 20 

160 LET B» G- 1 ■* -NEW RIGHT END POINT 

180 GO TO 20 

200 PRINT "I»M SMART!" 

210 END 


OUTPUT THINK OF A NUMBER FROM 1 TO 10* 
I GUESS 6 ? H 
I GUESS 1 ? L 
I GUESS 2 ? R 
I*M SMART! 
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To sum up, here is a simplified block diagram of 
COMPUTER GUESS/RANDOM METHOD, showing 
the role of the human player. 



At the start the computer is told the initial values of A 
and B. After that the computer generates a random 
number, outputs the number, and gathers feedback. 

Depending on the feedback, the game is either over or a 
new value for A or B is computed. If a new value is 
computed for one of the end points, the computer then 
loops back to the start of the procedure. This procedure 
is repeated until the computer hits upon the user’s 
number. This will occur after a finite number of repeti¬ 
tions, or iterations. 

Our new COMPUTER GUESS/RANDOM METH¬ 
OD game will be even more fun if the player can choose 
as the mystery number a number which belongs to a 
larger interval. Suppose the user wants to play COM¬ 
PUTER GUESS/RANDOM METHOD between 1 and 
1000; what changes need to be made in the following 
COMPUTER GUESS/RANDOM METHOD program? 

I RANDOM PROGRAM 

10 LET A-l 
15 LET B*10 

20 LET G«INT<<B-A+1>*RND(X>>+A 
40 PRINT "l GUESS’* GJ 
60 INPUT AS 
80 IF AS*"R" THEN 200 
100 IF AS*"H M THEN 160 
120 LET A»G+1 
140 GO TO 20 
160 LET B-G-l 
130 GO TO 20 
200 PRINT **I f M SMARTf* 

210 END 

All that we need to do is to let the user specify the left 
end point of the interval, A, and the right end point of 
the interval, B. Thus we substitute the following for 
lines 10 and 15 above. 

10 PRINT “GIVE ME LOWER AND UPPER 
NUMBERS”; 

15 INPUT A, B 


COMPUTER GUESS/ 
RANDOM METHOD 
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Here is the. complete program with a sample run. I 
picked 400 as the number to be guessed in the interval 

COMPUTER GUESS/RANDOM METHOD/ 123 to 432. 

EXPAND INTERVAL ppQGRAM 1 RANDOM 

—M0 PRINT "GIVE ME LOVER AND UPPER NUMBERS'*! 
—► 15 INPUT A#B 

20 LET G«INTC<8-A+1)*RND<X))+A 
40 PRINT **I GUESS** G! 

60 INPUT AS 
80 IF ASa**R'* THEN 200 
100 IF AS»**H" THEN 160 
120 LET A*G+1 
140 GO TO 20 
160 LET B«G-1 
180 GO TO 20 
200 PRINT **I *M SMART!** 

210 END 

OUTPUT GIVE ME LOVER AND UPPER NUMBERS? 123# 432 
I GUESS 351 ? L 
I GUESS 415 ? H 
I GUESS 410 ? H 
I GUESS 404 ? H 
I GUESS 356 ? L 
I GUESS 374 ? L 
I GUESS 388 ? L 
I GUESS 395 ? L 
I GUESS 400 ? R 
I*M SMART! 

On-line: 

1. Incorporate all of the following features into our 
new COMPUTER GUESS/RANDOM METHOD 
program. Load and run this new program and save 
as COM/G4. 

A. Add steps which tell the user how to play the 
game; also add any other layout features and 
computer personality that you desire. 

B. Add steps to handle inputs other than H, R, or 
L in response to the computer’s guess. 

C. Add steps that employ one of the replay 
options described in sections 2.2 and 3.2. 

D. Add steps that count the number of guesses 
required by the computer to hit upon the user’s 
number. 

2. Take your program COM/G4 and change it so that 
you will be able to choose as the mystery number 
any number between 1 and 1000. This means that A 
should be set at the value 1, and B at the value 1000. 
Play five games with your program and insert in the 
following table the number of guesses needed by the 
computer for each game, and the average number of 
guesses needed for the five games. Save this new 
program as COM/G5 for use in the next section. 
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GAME # _ # GUESSES 

1 

2 

3 

4 

5 

AVERAGE 


3.5 “TOO HIGH TOO LOW”: THE MIDPOINT 
METHOD 


We leave the Random Method to focus on a second 
strategy, the Midpoint Method, which was outlined in 
section 2.6.2. Both methods depend on feedback from 
the user. Let’s review the Midpoint Method as you used 
it when playing YOU GUESS games in the exercise set 
at the end of Chapter 2. After all, if you don’t know the 
method in detail, you can’t teach it to the computer. 

Suppose in one of the games the computer picked a 
mystery number between 1 and 1000. Your first guess 
should have been 500, “halfway” between 1 and 1000. 
Then, if 500 was not correct, your next guess should 
have been either 250, “halfway” between 1 and 500; or 
750, “halfway” between 500 and 1000. Each time you 
guessed, your new guess (if needed) should have come 
from the midpoint of a new, smaller interval. 

In the Midpoint Method, you are repeatedly finding 
the midpoint of an interval by averaging the two num¬ 
bers marking the end points. In short, you add up the 
two numbers and divide by 2. Thus, if the original 
interval is 1 to 1000, the average of 1 and 1000 is 


1 + 1000 
2 


or 


1001 

2 


or 500.5. 


To avoid obtaining mixed numbers, round off the 
number by using the next lower whole number, that is, 
by “rounding down.” Thus, 500.5. becomes 500. This 
method has one limitation: you’ll never guess the 
number 1000. Likewise, if you “round up,” you’ll 
never guess the number 1. I’ll leave it to you to discover 
why. You can get around this difficulty by making one 
end point of the interval the number 0, and the other end 
point the number 1001. Check this out yourself if you 
wish. 

Now let’s teach the computer the Midpoint Method. 
Let A and B mark the end points of the interval which 
contain the number. Let the initial value of A and B be 0 
and 1001 respectively. Let G be the computer’s guess, 
the average of A and B: 


A ± B 
~ 2 


To round G down, use INT: 
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If necessary, refer to section 2.1.1 for the operation of 
INT. 

Here is a graphic demonstration of the procedure. 
Suppose I pick 212 as the mystery number to be guessed 
by the computer. 

MY NUMBER 


212 



The computer’s first guess is 

INT((A + B)/2) = INT((0 + 1001)/2) = 

INT(1001/2) = INT(500.5) = 500. 

MY NUMBER 


212 



0 i 1001 


500 

G 

COMPUTER 

GUESSES 

This guess is too high. The computer must move the 
right end point B to the left by setting B equal to G. 


MY NUMBER 
212 



MY NUMBER IN HERE 


The computer’s second guess is 

INT((0 + 500)/2) = INT(500/2) = INT(250) = 250. 

MY NUMBER 


212 



250 

G 

COMPUTER 

GUESSES 


This guess is still too high. The computer again sets B 
equal to G. 


MY NUMBER 
212 
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The computer’s next guess is 

INT((0 + 250 ) 12 ) = INT(250/2) = INT(125) = 125. 


MY NUMBER 
212 



COMPUTER 

GUESSES 


This time G is too low. The computer must move A to 
the right, setting A equal to G. The target area is getting 
smaller, so I’ll change the scale of my drawing, show¬ 
ing only the interval of interest. 


MY NUMBER 
212 



The computer’s next guess is 

INT((125 + 250 ) 12 ) = INT(375/2) = INT(187.5) = 187. 


MY NUMBER 
212 



COMPUTER 

GUESSES 


G is still too low. The computer again moves A to the 
right, setting A equal to G. 


MY NUMBER 
212 



The computer’s next guess is 

INT((187 + 250)/2) = INT(437/2) = INT(218.5) = 218. 


MY NUMBER 
212 



218 

COMPUTER 

GUESSES 
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This is too high, so it sets B = G. 

MY NUMBER 


212 



The computer’s next guess is 

INT ((187 + 218)/2) = INT(405/2) = INT(202.5) = 202. 


MY NUMBER 
212 



COMPUTER 

GUESSES 


This is too low, so it sets A = G. 


MY NUMBER 
212 



The computer’s next guess is 

INT((202 + 218)/2) = INT(420/2) = INT(210) =210. 


MY NUMBER 
212 



COMPUTER 

GUESSES 


G is too low, so it sets A = G. 


MY NUMBER 
212 



The computer’s next guess is 

INT((210 + 218)/2) = INT(428/2) = INT(214) = 214. 


MY NUMBER 
212 



COMPUTER 

GUESSES 
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G is too high, so it sets B = G. 


MY NUMBER 
212 



210 214 


◄-MY NUMBER IN HERE--► 

The computer’s next guess is 

INT((210 + 214)/2) = INT(424/2) = INT(212) = 212. 

MY NUMBER 
212 


A 

4 r ' 

B 

1 » 

L 1 

> J * 

210 

214 


G 

COMPUTER 

GUESSES 


The guess is correct! It took nine guesses for the compu¬ 
ter, following the Midpoint Method, to trap the mystery 
number in the middle of an interval two units in length. 

Now that we know the method, let’s teach it to the 
computer. An easy way to do this is to look at the flow 
chart for COMPUTER GUESS/RANDOM METHOD 
and ask yourself what changes are necessary. 
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Four changes are required to transform this flow chart 
into COMPUTER GUESS/MIDPOINT METHOD. 


First, change 

Second,change 

Next, change 

and 


A = 1 

to 

o 

II 

< 

o 

ll 

CD 


B = 1001 


GENERATE 

to 

COMPUTE 

G 


G 

RND (A - B) 


INT( (A + B)/2) 


A = G + 1 

to 

o 

II 

< 


to 


1 

O 

II 

CD 

B = G 


Here is the flow chart for COMPUTER GUESS/ MID¬ 
POINT METHOD. 


COMPUTER GUESS/MIDPOINT METHOD 
FLOW CHART 


O- 



From this flow chart the following program is written 
and tested. 


122 

















The Computer Guesses Your Number 


10 

15 

16 
20 
40 
60 
80 

100 

120 

140 

160 

180 

200 

210 


LET A= 
LET B= 
PRINT 
LET G= 
PRINT 
INPUT 
IF A$* 
IF A$= 
LET A= 
GO TO 
LET B= 
GO TO 
PRINT 
END 


0 - 


□ 


INITIAL INTERVAL 


PROGRAM 


1001 - 

”THINK OF A NUMBER FROM 1 TO 1000.” 

I NTC ( A+B) /2> ◄- CALCULATE GUESS 

'•I GUESS’* g; 

AS 

”R” THEN 200 
M H" THEN 160 

G ◄- NEW LEFT END POINT 

20 
G ◄- 


20 

**I *M SMART!” 


NEW RIGHT END POINT 


THINK OF A NUMBER FROM 1 TO 1000. OUTPUT 
I GUESS 500 ? H 

I GUESS 250 ? H 

I GUESS 125 ? L 

I GUESS 187 ? L 

I GUESS 218 ? H 

I GUESS 202 ? L 

I GUESS 210 ? L 

I GUESS 214 ? H 

I GUESS 212 7 R 

I*M SMART! 


Here is a block diagram of COMPUTER GUESS/ 
MIDPOINT METHOD. 



Compare this diagram with the block diagram following 
the program COMPUTER GUESS/RANDOM 
METHOD. The diagrams are the same. The programs 
are essentially the same. The differences occur in (1) the 
initialization of the end points of the interval, (2) the 
method of guessing a number, and (3) the assignment of 
new values to A or B: 
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Random Method 

Midpoint Method 

Initialization of 

A = 1 

A = 0 

the End Points 

B = 1000 

B = 1001 

Method of Guessing 

G = INT( (B - A +1) * RND(X)) + 1 

G = INT((A + B)/2 

Assignment of New 

A = G + 1 

A = G 

End Point Values 

B = G - 1 

B = G 

Random Statement 

Necessary 

Unnecessary 


■■I EXERCISE SET 3.5 

On-line: 

1. Take your program COM/G5, and modify it so that it 
uses the Midpoint Method for guessing a number. 
Play five games with your program. Insert in the 
following table the number of guesses needed by the 
computer for each game, and the average number of 
guesses needed for the five games, t his new pro¬ 
gram will not be used again. 

GAME# #GUESSES 
1 
2 

3 

4 

5 

AVERAGE 

3.6 WHICH IS THE BETTER STRATEGY: RANDOM 
OR MIDPOINT? 

In exercise set 3.4 you played five games with the 
computer using your COMPUTER GUESS/RANDOM 
METHOD program and inserted the results in a table. In 
exercise set 3.5 you played another five games with the 
computer using your COMPUTER GUESS/MID¬ 
POINT METHOD program. Which strategy is better? 
In this case, the better strategy is the one which allows 
you or the computer to hit upon the mystery number 
with the smaller number of guesses, on the average. Of 
course, a strategy which works better for you most of 
the time may occasionally require a very large number 
of guesses. We want to take a look at that characteristic 
of each strategy also. 

Look at the results you obtained in the five games you 
played using each method. Which method required the 
smaller number of guesses, on the average ? Which 
method required the largest number of guesses in any 
one game? The smallest number of guesses in any one 
game? 

Unfortunately I can’t look over your shoulder at your 
results, so let us both look at the results obtained by my 
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computer. When it used the Random Strategy, it fol¬ 
lowed a program just like the one I asked you to write in 
exercise set 3.4. When it used the Midpoint Strategy, it 
followed a program just like the one I asked you to write 
in exercise set 3.5. Here is my COMPUTER 
GUESS/RANDOM METHOD program. 

1 RANDOM COMPUTER GUESS/RANDOM METHOD 

10 LET A*1 

15 LET B»1000 

16 PRINT "THINK OF A NUMBER FROM 1 TO 1000." 

17 LET C»0 

20 LET G*INT<<8-A+1>*RND<X)>+A 

21 LET C*C+1 

40 PRINT "I GUESS’* G! 

60 INPUT AS 
80 IF A$***R" THEN 200 
100 IF A$*"H" THEN 160 
120 LET A»G+1 
140 GO TO 20 
160 LET B*G«1 
180 GO TO 20 

200 PRINT M I *M SMART!** 

201 PRINT **I TOOK** C "GUESSES." 

210 END 


Here are five games played with the above program. 
GAME NO. 1 


THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 9 ? L 

I GUESS 600 ? H 

I GUESS 375 ? H 

I GUESS 369 ? H 

I GUESS 126 ? H 

I GUESS 20 ? L 

I GUESS 86 ? H 

I GUESS 80 ? H 

I GUESS 21 ? L 

I GUESS 56 ? L 

I GUESS 77 ? H 

I GUESS 66 ? H 

I GUESS 63 ? H 

I GUESS 59 ? H 

I GUESS 58 ? R 

I*M SMART! 

I TOOK 15 GUESSES. 

GAME NO. 2 

THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 601 ? H 

I GUESS 223 ? L 

I GUESS 486 ? L 

I GUESS 511 ? L 

I GUESS 512 ? L 

I GUESS 526 ? H 

I GUESS 523 ? H 

I GUESS 517 ? L 

I GUESS 520 ? H 

I GUESS 518 ? R 

I*M SMART! 

I TOOK 10 GUESSES. 


GAME NO. 3 

THINK OF A NUMBER FROM 1 TO 1000 



GUESS 

307 

? 

L 


GUESS 

647 

7 

H 


GUESS 

325 

? 

L 


GUESS 

414 

? 

L 


GUESS 

461 

? 

H 


GUESS 

448 

? 

H 


GUESS 

431 

? 

L 


GUESS 

441 

? 

H 


GUESS 

440 

? 

H 


GUESS 

435 

? 

H 


GUESS 

433 

? 

H 


GUESS 

432 

? 

R 

I*M SMART! 




I TOOK 12 GUESSES. 

GAME NO. 4 

THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 667 ? L 

I GUESS 856 ? L 

I GUESS 898 ? H 

I GUESS 897 ? H 

I GUESS 869 ? H 

I GUESS 857 ? L 

I GUESS 863 ? L 

I GUESS 866 ? L 

I GUESS 868 ? R 

I*M SMART! 

I TOOK 9 GUESSES. 
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GAME NO. 5 THINK OF A NUMBER FROM I TO 1000# 
I GUESS 757 ? H 

I GUESS 635 ? H 

I GUESS 224 ? H 

I GUESS 41 ? L 
I GUESS 208 ? L 

I GUESS 222 ? H 

I GUESS 221 ? H 

I GUESS 219 ? H 

I GUESS 218 ? H 

I GUESS 210 ? L 

I GUESS 214 ? H 

I GUESS 212 ? L 

I GUESS 213 ? R 

I f M SMART! 

I TOOK 13 GUESSES. 


Here is a summary of the five games: 


Game# 

1 

2 

3 

4 

5 

AVERAGE 


#Guesses 

15 

10 

12 

9 

13 


59 

5 


= 11.8 


How does my table compare with the table you con¬ 
structed in exercise set 3.4? 


Referring to the table , what is the minimum, 
maximum and average number of guesses required by 
the computer to hit upon the mystery number? The 
minimum number in the table is nine. However, in 
theory we know the computer can hit upon the mystery 
number on its first guess. But this would not happen 
very often. The maximum number in the table is 15. 
However, just as it is possible for the computer to get 
lucky, it could also be extremely unlucky. Suppose I 
picked 1 as the number for the computer to guess. The 
computer’s first guess could be 1000 which is too high. 
The next guess could be 999 which is again too high. 
This could be followed by a third guess of 998. But such 
a sequence of guesses which begins at 1000 and de¬ 
creases by 1 each time seems highly unlikely. What is 
the average number of guesses per game according to 
the table? The total number of guesses in the five games 
was 59. Divide this by the number of games and the 
average is 11.8 guesses per game. The five sample runs 
of COMPUTER GUESS/RANDOM METHOD can be 
summarized as follows: 


Minimum Number of Guesses: 
Maximum Number of Guesses: 
Average: 


9 

15 

11.8 
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So much for the Random Method. Now look at COM- 
PUTER GUESS/MIDPOINT METHOD. Here is my 
program. 

10 LET A*0 COMPUTER GUESS/MIDPOINT METHOD 

15 LET B-1001 

16 PRINT "THINK OF A NUMBER FROM 1 TO 1000." 

17 LET C*0 

20 LET G*lNT< < A+B)/2> 

21 LET C»C+1 

40 PRINT "I GUESS" G1 
60 INPUT AS 
80 IF A$»"R" THEN 200 
100 IF AS*"H" THEN 160 
120 LET A»G 
140 GO TO 20 
160 LET B*G 
180 GO TO 20 

200 PRINT "I'M SMARTI” 

201 PRINT "I TOOK" C "GUESSES." 

210 END 


Here are five games played with the above program. To 
make the results comparable, I picked the same five 
numbers, 58, 518, 432, 868, and 213, that I used in my 
five games with COMPUTER GUESS/RANDOM 
METHOD. 


GAME NO. 1 

THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 500 ? H 

I GUESS 250 7 H 

I GUESS 125 ? H 

I GUESS 62 ? H 

I GUESS 31 ? L 

I GUESS 46 ? L 

1 GUESS 54 ? L 

I GUESS 58 ? R 

I'M SMART 1 
I TOOK 8 GUESSES. 

GAME NO. 2 

THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 500 ? L 

I GUESS 750 7 H 

I GUESS 625 7 H 

I GUESS 562 7 H 

I GUESS 531 7 H 

I GUESS 515 7 L 

I GUESS 523 7 H 

I GUESS 519 7 H 

I GUESS 517 7 L 

I GUESS 518 7 R 

I'M SMART! 

I TOOK 10 GUESSES. 


GAME NO. 3 

THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 500 7 H 

I GUESS 250 7 L 

I GUESS 375 7 L 

I GUESS 437 7 H 

I GUESS 406 7 L 

I GUESS 421 7 L 

I GUESS 429 ? L 

I GUESS 433 7 H 

I GUESS 431 7 L 

I GUESS 432 7 R 

I'M SMART! 

I TOOK 10 GUESSES. 

GAME NO. 4 

THINK OF A NUMBER FROM 1 TO 1000 
I GUESS 500 7 L 

I GUESS 750 7 L 

I GUESS 875 7 H 

I GUESS 812 7 L 

I GUESS 843 7 L 

I GUESS 859 7 L 

I GUESS 867 7 L 

I GUESS 871 7 H 

I GUESS 869 7 H 

I GUESS 868 7 R 

I'M SMART! 

I TOOK 10 GUESSES. 
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GAME NO. 5 

THINK OF A NUMBER FROM I TO 1000* 
I GUESS 500 ? H 

I GUESS 250 ? K 

I GUESS 125 ? L 

I GUESS 18? ? L. 

I GUESS 218 ? H 

I GUESS 202 ? L 

1 GUESS 210 ? L 

I GUESS 214 ? H 

I GUESS 212 ? L 

I GUESS 213 ? R 

I # M SMART! 

I TOOK 10 GUESSES. 


Here is a summary of the five games: 


Game # 

1 

2 

3 

4 

5 

AVERAGE 


#Guesses 

8 

10 

10 

10 

10 



The minimum, maximum and average number of 
guesses required by the computer to hit upon the mys¬ 
tery number are: 


Minimum Number of Guesses: 8 

Maximum Number of Guesses: 10 

Average: 9.6 


Let’s put the two summaries side by side. 


Minimum Number of Guesses: 
Maximum Number of Guesses: 
Average: 


Random Method 
9 
15 

11.8 


Midpoint Method 
8 

10 

9.6 


Which is the better strategy? Based on the data gathered 
from the ten sample runs, the Midpoint Method looks 
like the winner. Can we be sure? Suppose I had picked 
numbers other than 58, 518, 432, 868, and 213 for the 
computer to guess. Would the results be about the 
same? Will the Random Method ever guess a number in 
one try? Will it ever take 1000 guesses? Will the Mid¬ 
point Method ever guess a number in one try? Will it 
ever take more than ten guesses? Are my averages 
reliable? To answer these questions or to get more 
reliable estimates, we need to play a large number of 
games, say 1000, using each method. You can do this 
one of two ways. You can sit at your terminal and play 
one game every two minutes. Would you believe this 
comes to about 33 hours for each method? On the other 
hand you can take advantage of the speed of the compu¬ 
ter, by programming the computer not only to guess the 
mystery number, but to think of it in the first place! 
Starting first with the Random Method, let’s give the 
computer this dual role. 

3.6.1 THE RANDOM METHOD: 1000 GAMES 

The human operations in playing the COMPUTER 
GUESS/RANDOM METHOD game are: 

1. Think of a number between 1 and 1000 and re¬ 
member it. 

2. Inform the computer whether its guess is too high, 
too low, or right on. 
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We can program the computer to perform both these 
“human” tasks for us. The following flow chart for 
COMPUTER GUESS/RANDOM METHOD has been 
modified to show the two human operations in dashed 
boxes. 


1“ — — “ “ ■I - “I COMPUTER GUESS/HUMAN OPERATIONS 

1 HUMAN THINKS 1 

I OF A NUMBER I FLOWCHART 



r HUMAN DECIDES IF I 
I COMPUTER’S GUESS IS I 
I TOO HIGH, TOO LOW I 
1 OR RIGHT I 

r 



Let’s program the first human task: 


HUMAN THINKS 
OF A NUMBER 


In real life the human picks his mystery number “at 
random” between 1 and 1000. The computer can easily 
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do this by generating a number at random between 1 and 
1000. The dashed box can be replaced by: 


GENERATE 

H 

RND (1 - 1000) 


The next step is to program the computer to perform 
the second human task: decide if the computer’s guess is 
too high, too low, or right on. This “human” decision 
is made after the computer types out its guess. 

Since the computer will make this decision instead of 
a human, there is no need to have the guess typed out, 
and no need to have the computer get the “human” 
response: too high, too low, or right on. 


TELL USER 

and 

GET USER’S 

GUESS 

RESPONSE 

G 


A $ 


can be eliminated. Having crossed out those two boxes, 
let’s expand into a flow chart the “human” task: 


r 


HUMAN DECIDES IF 
COMPUTER’S GUESS IS I 
RIGHT, TOO HIGH ! 
OR TOO LOW J 


The first step is to test whether the computer hit upon the 
mystery number. That is, DOES G = H? If G does 
equal H, then the computer is on target and the game is 
over. IfG does not equal H, then two possibilities exist. 
If the computer’s number is greater than the human’s, 
G > H, the computer’s guess is too high and the right 
hand end point of the interval, B, must be moved one 
unit to the left of G by saying: LET B = G-1. If G is not 
equal to H and is not greater than M, the third possibil¬ 
ity must follow, namely G<H. In this case, the 
computer’s guess is too low and the left end point of the 
interval, A, must be moved one unit to the right by 
saying: LET A = G +1. Let’s flowchart these compari- 
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So much for the human tasks. Here is the revised flow 
chart. 



The following program is encoded from the above flow 
chart. 


! 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 


RANDOM 

LET H*INT<1000*RND<X))♦1◄- 

LET C*0 
LET A*1 
LET B*1000 

LET G*INT< < B-A+1)*RND(X> >♦A 
LET OOl 
I r THEN 130 

IF G>H THEN 110 

LET A»G+1«*- 

GO TO 50 

LET B-G-l◄- 

GO TO 50 

PRINT "I f M SMART!"**- 

PRINT "I TOOK" C "GUESSES." 
END 


PROGRAM 

PICK NUMBER FOR HUMAN 


IF G < H 
IF G > H 
IF G = H 


Here is a typical run: I # M SMART! OUTPUT 

I TOOK 10 GUESSES. 

Does the program operate as we planned? The output 
doesn’t tell us. To take a look behind the scenes, let’s 
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insert two “see through” print statements. One will tell 
us the mystery number picked by the “human”: 15 
PRINT “HUMAN PICKED” H. The other will tell us 
the computer’s guesses: 55 PRINT “I GUESS” G. 
Here is a typical run of the 4 4 see through’ ’ version of the 

COMPUTER GUESS/SEE THROUGH P ro g ram 


1 RANDOM 

10 LET HMNT< 1000*RND<X))M 

15 PRINT "HUMAN PICKED" H-«- PRINT OUT COMPUTER’S 
20 LET C=»0 GUESS 

30 LET A>1 
40 LET B»1000 

50 LET G«INT<CB-AM>*RND(X)>+A 

55 PRINT "I GUESS" G - PRINT OUT HUMAN 

60 LET C»CM NUMBER 

70 IF G»H THEN 130 
80 IF G>H THEN 110 
90 LET A*G+1 
100 GO TO 50 
110 LET B*G-1 
120 GO TO 50 
130 PRINT "I«M SMART!" 

140 PRINT "I TOOK" C "GUESSES." 

150 END 


HUMAN PICKED 983 
I GUESS 532 
I GUESS 615 
I GUESS 867 
I GUESS 912 
I GUESS 923 
I GUESS 9 78 
I GUESS 932 
I GUESS 997 
I GUESS 996 
I GUESS 986 
I GUESS 990 
I GUESS 987 
I GUESS 988 
I*M SMART! 

I TOOK 13 GUESSES. 


Convinced that the program operates satisfactorily, let’s 
have the computer play the game as many times as we 
wish. We will specify the number of games, N, to be 


played after we say RUN. To do this, we will put the 
program, COMPUTER GUESS/RANDOM METH- 
OD/“DEHUMANIZED” in a loop using FOR and 
NEXT. P will count off the number of games played. 
Furthermore, since we’re now interested in having the 


COMPUTER GUESS/ 
RANDOM METHOD/N GAMES 


computer play many games as quickly as possible, we’ll 
omit the PRINT statements which tell us the mystery 
number for each game, the computer’s guesses, and the 
fact that the computer is smart. 


I RANDOM 

7 PRINT "HOW MANY GAMES"! 

8 INPUT N 


N 

GAMES 

LOOP 


— 9 FOR PM TO N 
10 LET H»INT<1000*RND<X>>+l 
20 LET C»0 

30 LET A*1 

40 LET B*1000 

50 LET G*INT( < B-AM )*RND<X) >♦ A 

60 LET C*CM 

70 IF G»H THEN 140 
80 IF G>H THEN 110 
90 LET A*G+1 
100 GO TO 50 
110 LET B*G-1 
120 GO TO 50 

140 PRINT "I TOOK" C "GUESSES." 
145 NEXT P 


150 END 


HOW MANY GAMES? 20 
I TOOK 9 GUESSES. 

I TOOK 7 GUESSES. 

I TOOK 14 GUESSES. 
I TOOK 11 GUESSES. 
I TOOK 8 GUESSES. 

I TOOK 11 GUESSES. 
I TOOK 10 GUESSES. 
I TOOK 14 GUESSES. 
I TOOK 12 GUESSES. 
I TOOK 9 GUESSES. 

I TOOK 16 GUESSES. 
I TOOK 13 GUESSES. 
I TOOK 12 GUESSES. 
I TOOK 10 GUESSES. 
I TOOK 16 GUESSES. 
I TOOK 14 GUESSES. 
I TOOK 19 GUESSES. 
I TOOK 13 GUESSES. 
I TOOK 14 GUESSES. 
1 TOOK 12 GUESSES. 
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We’re interested in the results, not of each game, but of 
many games. That is, we’re interested in how many 
games it took one guess to hit upon the mystery number, 
in how many games it took two guesses, in how many 
games it took three guesses, etc. In short we’re in¬ 
terested in the frequency of games that took one, two, 
three, four, five, etc. guesses. If you were keeping track 
of the frequency by hand, you would set up a tally list 
which would look something like this: 

Number of Guesses Frequency 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

To set up a “tally list’’ in the computer, we use a 
subscripted variable. At the beginning of this chapter 
we used a subscripted variable to set up a check list to 
avoid duplicate guesses. A DIM statement was needed 
to set aside a certain number of boxes. How many boxes 
must we now set aside for this tally list? Certainly the 
minimum number of guesses is 1 (the computer might 
get lucky). To this point the maximum number has been 
19 (look at the last output), so 25 boxes ought to be 
enough. If it isn’t, we can change our upper limit to 30 
or 40. We’ll use the variable F for frequency and sub¬ 
script it as: F( 1), F(2), F(3),. . ., F(25). Inbox form the 
“tally list” looks like this: 


LABEL 

F(l) 

F(2) 

F(3) 

F(4) 

F(5) 

F(6) 

F(7) 

F(8) 

F(9) 

F( 10) 

CONTENTS 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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LABEL 

CONTENTS 


F(21) 

F(22) 

F(23) 

F(24) 

F(25) 

0 

0 

0 

0 

0 


Each time a game is played, the computer will find the 
box which represents the number of guesses necessary 
to hit upon the mystery number and add one (1) to the 
contents. When 30 games have been played, the 
computer’s “tally list’’ might look like this: 


F(l) 

F(2) 

F(3) 

F(4) 

F(5) 

F(6) 

F(7) 

F(8) 

F(9) 

F(10) 

0 

1 

0 

0 

3 

0 

1 

0 

2 

1 


F(11) 

F(12) 

F( 13) 

F(14) 

F( 15) 

F( 16) 

F(17) 

F(18) 

F(19) 

F(20) 

2 

4 

5 

3 

2 

1 

2 

0 

1 

1 


F(21) 

F(22) 

F(23) 

F(24) 

F(25) 

0 

1 

0 

0 

0 


F(11) 

F(12) 

F( 13) 

F(14) 

F(15) 

F(16) 

F(17) 

F(18) 

F(19) 

F(20) 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


If in the thirty-first game 13 guesses are required, the 
computer adds 1 to box F(13). In BASIC we write LET 
F(13) = F(13) H- 1, which means that the new value of 
F(13) is equal to the old value of F(13), 5, plus 1, or 6. 
Thus, after each game is played, the computer executes 
this statement: 


LET F(C) = F(C) + 1 

in which C is the number of guesses needed to hit upon 
the mystery number. 

Let’s fix up the old program COMPUTER 
GUESS/RANDOM METHOD/N GAMES. First, let’s 
put in the tally list. Three things are required. 

(1) A DIMENSION statement to set aside space in the 
computer’s memory for the 25 boxes: 2 DIM 
F(25). 

(2) An initializing loop to put a zero in each box. Add 
the following initializing loop: 

3 FOR I = 1 TO 25 

4 LET F(I) = 0 

5 NEXT I 

(3) A tally statement LET F(C) = F(C) + 1 to be exe¬ 
cuted after each game is played. The ideal position 
for this statement is the line in the old program 
occupied by the statement 140 PRINT “I TOOK’’ 
C “GUESSES.’’ Since we don’t need to print the 
number of guesses anyway, remove the PRINT 
statement and insert 140 LET F(C) = F(C) + 1. 

Finally, to print out the frequency table after the 1000 
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games are played, add this loop: 

150 PRINT “GUESSES,” “FREQUENCY” 

155 FOR I = 1 TO 25 

156 PRINT I, F(I) 

157 NEXT I 


Here is the new program COMPUTER GUESS/ RAN¬ 
DOM METHOD/RANDOM. 


INITIALIZE 

TALLY 

LIST 


_ 0 

G 


N 

GAMES 

LOOP 


1 
2 

3 

4 

5 

7 

8 

— 9 
10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
140 
L 145 
150 
r 155 


PROGRAM 


25 


RANDOM 
DIM F< 25) 

FOR I«1 TO 
LET F<I>*0 
NEXT I 

PRINT "HOW MANY* GAMES"! 

INPUT N 

FOR P» 1 TO N 

H»INT< 1000*RND< X)>♦1 
C«0 
A* 1 

B* 1000 

6*1NT<CB-A+l>*RND<X>>+A 
C»C*l 

G»H THEN 140 
1 10 


COMPUTER GUESS/ 
RANDOM METHOD/RANDOM 


LET 

LET 

LET 

LET 

LET 

LET 

IF 


IF G>H THEN 
LET A*G+1 
GO TO 50 
LET B»G-1 
GO TO 50 

LET F<C)aF<C)+l^- 

NEXT P 

PRINT "GUESSES"#"FREQUENCE" 
PRINTOUT pi55 FOR I»1 TO 25 
FREQUENCY 156 PRINT I#F(I) 

TABLE L|q 7 NEXT I 

END 


TALLY STATEMENT 


COLUMN HEADING 


1 —157 
160 


A typical run requesting the computer to play 
games is to the right’. 


1000 


OUTPUT 
HOW MANY 
(DESSES 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


GAMES? 1000 

FREQUENCY 

1 

2 

2 

8 

8 

26 

41 

52 

73 

I 15 
109 
1 12 
126 
113 
75 
45 
41 
20 

II 
8 
7 
4 

1 

0 

0 
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COMPUTER GUESS/ Here is a graph of the frequency data summarized in the 

RANDOM METHOD/RANDOM/ table above. 



0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 


NUMBER OF GUESSES 

The speed of the computer is fantastic. The actual run 
time of this program on my computer (a time-sharing 
system) was about 10 minutes, a marked difference 
from the length of time, 33 hours, it would take me to 
play 1000 games of COMPUTER GUESS/RANDOM 
METHOD one at a time. Here is what we learn from the 
above output: 

(1) Minimum Number. One guess was enough to hit 
upon the number in one game out of 1000. Two 
games took two guesses, and two games took three 
guesses. In short, it’s possible for the computer to 
be lucky, but not very often. 

(2) Maximum Number. In one game the number of 
guesses required to hit upon the number was 23. 
That’s the maximum. Four games took 22 guesses. 

(3) Average number. If you were to multiply each 
number in the first column by its corresponding 
frequency in the second column, and divide the 
total by 1000, you would obtain 12.003 as the 
average number of guesses. 

To sum up: 

Minimum Number of Guesses: 1 

Maximum Number of Guesses: 23 

Average Number of Guesses: 12.003 
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In the program COMPUTER GUESS/RANDOM 
METHOD/RANDOM, the mystery number picked by 
the “human player” was generated at random from the 
interval 1 to 1000. As a result some numbers were 
picked many times while others were never picked at 
all. The “human” could, however, pick his mystery 
number in such a way as to insure that, in 1000 games, 
each number from 1 to 1000 was used once. 

To program the computer to act similarly, replace the 
statement 10 LET H = INT(1000*RND(X)+1 with 
the new statement 10 FOR H = 1 TO 1000. As H goes 
from 1 to 1000, it represents not only the number picked 
by the “human,” but also the number of games played 
to that point by the computer. The old FOR and NEXT 
statements, 9 FOR P = 1 TO N and 145 NEXT P, no 
longer needed, may be deleted. The statement 7 PRINT 
“HOW MANY GAMES”; and 8 INPUT N can also be 
deleted since the statement FOR H = 1 TO 1000 con¬ 
trols the number of games. 

To sum up, we delete: 

7 PRINT “HOW MANY RUNS”; 

8 INPUT N 

9 FOR P = 1 TO N 

10 LET H = INT(1000*RND(X))+1 

145 NEXT P 

And add: 

10 FOR H = 1 TO 1000 

145 NEXT H 

We also want to have the computer find the average 
number of guesses required in 1000 games. This is done 
by obtaining the total number of guesses and dividing by 
1000. In each individual game the computer generates 
its guesses by executing line 50 one or more times. 
While the present counter, C, in line 60, counts the 
number of guesses generated in each game by line 50, it 
cannot keep a running total for all games because at the 
beginning of each game, C is set back to zero by line 20. 
To count the total number of times line 50 is executed in 
1000 games, insert 

55 LET T = T+l. 

Initialize the new counter by inserting before the game 
loop 

6 LET T = 0 
Finally, insert 

158 PRINT “THE AVERAGE IS” T/1000 


to type out the average number of guesses after the 
frequency table is listed. 
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COMPUTER GUESS/ 
RANDOM METHOD/SERIAL 


PROGRAM 1 
2 

3 

4 

5 

6 

- 10 
20 


RANDOM 
DIM F< 25) 

FOR 1*1 TO 25 
LET F(I)*0 
NEXT I 

LET T*0 ◄- 


OUTPUT 


GUESSES 

1 


INITIALIZE NEW COUNTER 


H 

LOOP 


30 
40 
50 
55 
60 
70 
80 
90 
100 
1 10 
120 
140 
I—145 
150 

155 

156 

157 

158 
160 


FOR H 2 1 TO 1000 
LET C*0 
LET A*1 
LET B*1000 

LET G*INT( < B-A+1)* RND< X) ) + A 

LET T*T+ 1 < - TOTAL NUMBER GUESSES 

LET C*C+1 


IF G*H THEN 140 
IF G>H THEN 110 
LET A*G+1 
GO TO 50 
LET B* G-1 
GO TO 50 
LET F<C>*F<C>+1 
NEXT H 

PRINT "GUESSES","FREQUENCY" 
FOR 1*1 TO 25 
PRINT I , F< I ) 

NEXT I 

PRINT "THE AVERAGE IS" T/1000< 
END 


2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
THE 


FREQUENCY 

3 
2 

4 
7 
12 
29 
38 
70 
88 
102 
108 
132 
95 
84 
65 
62 
32 
41 
11 

9 

4 

2 

0 


AVERAGE 


0 

IS !1< 


868 


COMPUTER GUESS/ 
RANDOM METHOD/SERIAL/ 
1000 GAMES 


-PRINT OUT AVERAGE 


Here again is a graph of the frequency data. 












The Computer Guesses Your Number 


Now look back at the output. Here is a table comparing 
the results obtained when the number was picked at 
random with the results obtained when each number 
from 1 to 1000 was picked once. 



Random 

Random 


Method/ 

Method/ 


Random 

Serial 

Minimum Number Guesses: 

1 

1 

Maximum Number Guesses: 

23 

22 

Average Number Guesses: 

12.003 

11.868 


It would appear that the method by which the compu¬ 
ter picks a number for the “human” makes little differ¬ 
ence in the overall results. 

mmaammmm exercise set 3 . 6.1 ■■■■■■■■ 

On-line: 

1. Assume the human thinks of a mystery number 
between 1 and 200. What is the minimum, the 
maximum, and the average number of guesses 
needed by the computer to hit upon the mystery 
number using the Random Method? To do this, 

A) Take the program COMPUTER GUESS/ 

RANDOM METHOD/RANDOM and 

(1) change the interval from which the 
“human” picks a number from 1 to 1000 
to 1 to 200, and 

(2) add steps to find the total number of 
guesses and the average. Now run this 
program. Save the program as COM/G6 
for modification in section 3.6.2. 

B) Graph the output produced by the above pro¬ 
gram. 

C) Modify the above program so the computer 
picks each and every number from 1 to 200. 

Run this program. 

D) Graph the output produced by the above pro¬ 
gram. 

E) Fill in the following table and save it for the 
next section. 

Random Random 
Method/ Method/ 

Random Serial 

Minimum Number Guesses: 

Maximum Number Guesses: 

Average Number Guesses: 

3.6.2 THE MIDPOINT METHOD: 1000 GAMES 

So much for the minimum, maximum, and average 
number of guesses per game using the Random Method. 

Let’s gather the same statistics for the Midpoint 139 
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Method. To do this we need to write a program like 
COMPUTER GUESS/RANDOM METHOD/ RAN¬ 
DOM, substituting the Midpoint Method for the Ran¬ 
dom Method. Look at the block diagrams of the Ran¬ 
dom Method and the Midpoint Method in sections 3.4 
and 3.5. Here is a summary of the differences between 
the two methods. 


Initialization of the 
End Points 

Method of Guessing 


Random Method 

A = 1 
B = 1000 


Midpoint Method 

A= 0 
B = 1001 

G = INT((A+B)/2) 


G = INT( (B - A + 1) *RND(X)) +1 


Assignment of New A = G + 1 

End Point Values B = G — 1 


A = G 
B = G 


RANDOM statement 


Necessary 


Unnecessary 


COMPUTER GUESS/ 
RANDOM METHOD/RANDOM 


Since, the programs for the Random and Midpoint 
Methods are identical in structure, we need to make 
only six changes in the program COMPUTER 
GUESS/RANDOM METHOD/RANDOM to obtain 
the new program COMPUTER GUESS/MIDPOINT 
METHOD/RANDOM. Here is a copy of COMPUTER 
GUESS/RANDOM METHOD/RANDOM showing the 
changes to be made. 


1 RANDOM ◄- DELETE 

2 DIM F( 25) 

3 FOR I«1 TO 25 

4 LET F(I)=0 

5 NEXT I 

7 PRINT "HOW MANY GAMES"! 

8 INPUT N 

9 FOR P«1 TO N 

10 LET H*INT<1000*RND(X>>♦1 
20 LET C»0 

30 LET A«l<«- REPLACE WITH: 30 LET A = 0 

40 LET B* 1000 ◄- REPLACE WITH: 40 LET B = 1001 

50 LET G*INT< (B-A+ 1 )*RND<X) )+A ◄- REPLACE WITH: 50 LET G = INT 

60 LET C*C*1 ( (A + B)/2) 

70 IF G*H THEN 140 
80 IF G>H THEN 110 

90 LET A*G+l4 - REPLACE WITH: 90 LET A = G 

100 GO TO 50 

110 LET B*G- 1 ◄- REPLACE WITH: 110 LET B = G 

120 GO TO 50 

140 LET F<C)aF<C>+l 

145 NEXT P 

150 PRINT "GUESSES"#"FREQUENCY" 

155 FOR I*l TO 25 

156 PRINT I#F(I) 

157 NEXT I 

*60 END As in COMPUTER GUESS/RANDOM METHOD/ 

SERIAL, we want the computer to calculate the average 
number of guesses. To count the total number of 
guesses, add to the above program the new counter, T: 
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6 LET T = 0 
55 LET T = T+l 

To divide T by N, the number of games played, add: 

158 PRINT “THE AVERAGE IS” T/N 
Here is the new program. 


2 

3 

4 

5 

—►6 

7 

8 
9 

10 

20 

30 

40 

50 

>55 

60 

70 

80 

90 

100 

110 

120 

140 

145 

150 

155 

156 

157 

158 
160 


25 


DIM F<25) 

FOR 1*1 TO 
LET F<I>*0 
NEXT I 
LET T»0 

PRINT "HOW MANY GAMES"; 
INPUT N 
FOR P*1 TO 
K> 

C 
A 

B-1001 

G*INTC<A+B)/2> 

T»T+ 1 
OOl 

H THEN 140 


PROGRAM 


COMPUTER GUESS/ 
MIDPOINT METHOD/RANDOM 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
IF G 


N 

INTC1000*RND< X) ) ♦ 1 
0 


»0 - 1 « 

■ mat-1 


INITIAL INTERVAL 
CALCULATE GUESS 


110 


IF G>H THEN 

LET A*G<«- 

GO TO 50 

LET B*G<«- 

GO TO 50 

LET F<C>*F<C>+1 

NEXT P 

PRINT "GUESSES"#"FREQUENCY 
FOR 1*1 TO 25 
PRINT I#F<I> 

NEXT I 

PRINT "THE AVERAGE IS" T/N 
END 


NEW LEFT END POINT 


NEW RIGHT END POINT 


OUTPUT 


A typical run of this program is given to the right. 

Look at the output. What is the minimum, maximum, 
and average number of guesses per game needed by the 
computer to hit upon the user’s number? How do these 
statistics compare with those obtained with COMPU¬ 
TER GUESS/RANDOM METHOD/RANDOM? Here 
is a table which brings these results together. 


Minimum Number Guesses: 
Average Number Guesses: 
Maximum Number Guesses: 


Random 

Method/ 

Random 

1 

12.003 

23 


Midpoint 

Method/ 

Random 

1 

9.005 

10 


Which method is more efficient? The Midpoint Method 


HOW MANY 
GUESSES 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 
17 
13 

19 

20 
21 
22 

23 

24 

25 
THE 


GAMES? 1000 

FREQUENCY 
1 
1 
2 
11 
15 
27 
69 
125 
258 
49 1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 

0 

AVERAGE IS 9*005 
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COMPUTER GUESS: 

RANDOM METHOD/RANDOM/IOOO GAMES 
MIDPOINT METHOD/RANDOM/IOOO GAMES 


is the better strategy. Here is a graph comparing the 
outputs generated by COMPUTER GUESS/RANDOM 
METHOD/RANDOM and COMPUTER GUESS/ 
MIDPOINT METHOD/RANDOM. 


COMPUTER GUESS: 
RANDOM METHOD/RANDOM 


MIDPOINT METHOD/RANDOM 
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Look at the last output again. With the Midpoint 
Method, the maximum number of guesses was 10. But 
in that game, the computer generated the mystery 
number at random. It did not pick all the numbers 
between 1 and 1000. Can we be sure that, when using 
the Midpoint Method, the computer will never need 
more than ten guesses to hit upon any number the 
“human” thinks of between 1 and 1000? To find out, 
let’s revise the game so that the “human” picks each 
number from 1 to 1000. The easy way to do this is to 
make six changes in the old program COMPUTER 
GUESS/RANDOM METHOD/SERIAL to obtain a 
new program COMPUTER GUESS/MIDPOINT 
METHOD/SERIAL. Here is a copy of COMPUTER 
GUESS/RANDOM METHOD/SERIAL showing the 
changes to be made: 


COMPUTER GUESS/RANDOM METHOD/SERIAL 

1 RANDOM ◄- DELETE 

2 DIM FC 25) 

3 FOR 1*1 TO 25 

4 LET F<I)*0 

5 NEXT I 
9 LET T*0 

10 FOR H* 1 TO 1000 
20 LET C=0 

30 LET A* 1 < - REPLACE WITH: 30 LET A = 0 

40 LET B* 1000 ◄- REPLACE WITH: 40 LET B = 1001 

50 LET G*INT<<B-A-M)*RND<X)>+A4- REPLACE WITH: 50 LET G = INT ((A + B)/2) 

55 LET T*T+1 
60 LET C*C+1 
70 IF G*H THEN 140 
80 IF G>H THEN 110 

90 LET A*G+ 1 ◄- REPLACE WITH: 90 LET A = G 

100 GO TO 50 

110 LET B*G- 1 ◄- REPLACE WITH: 110 LET B = G 

120 GO TO 50 

140 LET F< C)*F< C)♦1 

145 NEXT H 

150 PRINT "GUESSES"# "FREQUENCY*" 

155 FOR 1*1 TO 25 

156 PRINT I# F(I ) 

157 NEXT I 

158 PRINT "THE AVERAGE IS" T/1000 
160 END 
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Here is the new program COMPUTER GUESS/ MID- 
COMPUTER GUESS/ POINT METHOD/SERIAL. 

MIDPOINT METHOD/SERIAL 


PROGRAM 


OUTPUT 


2 DIM F<25> 

3 FOR 1 = 1 TO 25 

4 LET F(I> =0 

5 NEXT I 

6 LET T=0 

10 FOR H=1 TO 1000 
20 LET C»0 

30 LET A»0 - INITIAL INTERVAL 

40 LET B* 1001—1 

50 LET G*I NT( < A+B)/2> ^-CALCULATE GUESS 

55 LET T*T+1 

60 LET C*C+1 

70 IF G=H TtiEN 140 

80 IF G>H THEN 110 

90 LET A*G-«- NEW LEFT END POINT 

100 GO TO 50 

110 LET B*G-«- NEW RIGHT END POINT 

120 GO TO 50 

140 LET F<C)*F<C)+1 

145 NEXT H 

150 PRINT "GUESSES"*"FREQUENCE" 

155 FOR 1=1 TO 25 

156 PRINT I *F(I) 

15 7 NEXT I 

158 PRINT "THE AVERAGE IS" T/1000 
160 END 


GUESSES 

1 

2 

o 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

THE AVERAGE I 


FREQUENCY 

1 

2 

4 

8 

16 

32 

64 

128 

256 

489 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

S 8*987 


No game took more than 10 guesses. Thus we can assert 
that the Midpoint Method will always hit upon any 
number the user is thinking of between 1 and 1000 in ten 
or fewer guesses. 


EXERCISE SET 3.6.2 


On-line: 

1. Assume the human thinks of a number between 1 
and 200. What is the minimum, maximum, and 
average number of guesses needed by the computer 
to hit upon the human’s number using the Midpoint 
Method? To do this, 

A) Take the program, COM/G6, which you saved 
in the last exercise set and make the six changes 
necessary to transform it into a program which 
uses the Midpoint Method. Run this program. 
Graph the output. 

B) Modify the above program so the computer 
picks each and every number from 1 to 200. 
Run this program. Graph the output. 
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C) Summarize the results obtained in A and B in 
this table: 


Minimum Number Guesses: 
Maximum Number Guesses: 
Average Number Guesses: 


Midpoint Midpoint 
Method/ Method/ 
Random Serial 


D) Use the table below to compare the results 
summarized in the above table with the results 
listed in a similar table which you completed in 
set 3.6.1 


Random Midpoint 
Method/ Method/ 
Random Random 

Minimum Number Gueses: 

Maximum Number Guesses: 

Average Number Guesses: 

Which strategy, the Midpoint Method or the 
Random Method, is the smart one? Why? 

2. (Optional) You may wish to write a Computer 
Guess game program which will produce an output 
similar to the one shown at the beginning of this 
chapter. Use the Random Method, the Midpoint 
Method, or a combination of both. This combina¬ 
tion, or Mixed Method, would use the Midpoint 
Method on the first guess, the Random Method on 
the second, the Midpoint Method on the third, etc. 
Is a mixed strategy better than the Midpoint Method 
above? 
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**** 

* ** 

* *** * 

* ***** * 

**** ******* *** 

** * ****** ********* 
** * **** * 

* ***** 

* ****** * 

* ** * 


***** 

*** ** 
**** ** 


** *** 
*** * 
***** 
**** 

** 


** 

***** 

* * 

* * 

* * 

* * 

*** 


******************* 


* * 

* * 

* ********* 
** * 
**** ******* 


** 

*** ** 

* * * * 
** * **** 

** ** * 

* * ** 

* **** 


c ***** * 

************* * * * 
***** * * 

*** * *** * 4 

*'* * * 
** ** *** 


** ** * 


*** 

** 

** * 


** 

** 

*** * 


* 

* 

*** * * 


* 

* 

** * * * 


* 

* * 

*** * **** 


* 

* * 

*** ** * 


* 

* ** 

*** * ** 


* 

* ** 

** *** * 


* 

** 

** **** 


*** 

* * 

**** 

* 

* 

* * 

* 

* 

♦ 


************** * * 

* * * 

*************** * 
***** * 
******************* 


* * ********* 
****** ********* * 
♦ * * * 
* * * ****** 
********************** 


CURSE YOU# COMPUTER! 
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4 

PROGRAMMING THE COMPUTER 
TO DRAW 


Our guess-a-number games have served to introduce 
you to the following operations in BASIC: LET, 
PRINT, GO TO, IF-THEN, STOP, END, RANDOM, 
DIM, FOR and NEXT, and INT. You have also been 
introduced to branching, looping and the use of a sub¬ 
scripted variable to construct check lists and tally lists. 
In this chapter, by teaching the computer to draw, I’ll 
introduce new operations: TAB, READ and DATA, 
GO SUB and RETURN, as well as the important con¬ 
cept of the subroutine. 

4.1 SQUARES AND RECTANGLES: LOOP 
BUILDING 

Write a program to draw the following design: 

***** 

***** 

***** 

***** 

***** 

You probably would call that design a rectangle, but 
the computer thinks of it as a square since there is an 
equal number of asterisks, or stars, on each side. There 
are many possible programs which can be written to 
draw that square. A very easy program might use a loop 
to print a line of five stars five times in succession. Here 
is such a program. 


PROGRAM OUTPUT 

10 FOR C-1 TO 5 STEP 1 ***** 

20 PRINT "*****•• ***** 

30 NEXT C ***** 

40 END ***** 

***** 


This program gives us an opportunity to review the 
construction of loops. As you know, the first statement 
of a loop begins with FOR and the last statement with 
NEXT. In between the FOR and NEXT statements we 
sandwich one or more statements in BASIC. The state¬ 
ment 


FOR C = 1 TO 5 STEP 1 

at the beginning of this loop tells the computer that the 
variable C is to start at 1 (C = 1), that the next value of 
C is to be one more than the last value (STEP 1), and that 
the maximum value of C is to be 5 (C = 1 TO 5). If the 


SQUARE/ELEMENTARY 
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step size is 1, as above, it is not necessary to include the 
modifier STEP 1. On the other hand, if the difference or 
step between successive values of the variable is not 1, 
the word STEP is included, followed by a number 
representing the step size. The programs we have writ¬ 
ten in previous chapters all called for a step size of 1, so 
the modifier was omitted. Here are some examples of 
the use of the word STEP. 

Write a program to print out a list of the whole numbers 
from 1 to 13. 


STEP 1 PROGRAM 10 FOR N-1 TO 13 OUTPUT 1 

20 PRINT N 2 

30 NEXT N 3 

40 END 4 


5 

6 
7 
3 

9 

10 
1 1 
12 
13 


The modifier STEP 1 was omitted in line 10. 


STEP 5 


STEP 2 


Write a program to print out a list of the whole numbers 
from 0 to 50 in steps of 5. 


PROGRAM 10 FOR N=0 TO 50 STEP 5 
20 PRINT N 
30 NEXT N 
40 END 


OUTPUT 0 
5 
10 
15 
20 
25 
30 
35 
40 
45 
50 


Write a program to print out a list of the whole numbers 
12, 14, 16, 18, 20, 22, 24, 26, 28. 


PROGRAM 10 FOR N* 12 TO 23 STEP 2 OUTPUT 12 
20 PRINT N 14 

30 NEXT N 16 

40 END 13 

20 

22 

24 

26 

23 


Write a program to print out a list of the whole numbers 
1 to 13 in reverse order. 
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10 FOR N«13 TO 1 STEP 
20 PRINT N 
30 NEXT N 
40 END 


1 PROGRAM 13 OUTPUT 
12 
1 1 
10 
9 

3 
7 
6 
5 

4 
3 
2 
1 


Write a program to print out a list of the whole numbers 
50, 45, 40, 35, 30, 25, 20, 15, 10, 5, 0. 


10 FOR N=50 TO 0 STEP 
20 PRINT N 
30 NEXT N 
40 END 


5 PROGRAM 50 OUTPUT 
45 
40 
35 
30 
25 
20 
15 
10 
5 
0 


STEP -1 


STEP -5 


As you see from these examples, the FOR statement has 
the form 

FOR C = Cl to C2 STEP D 

where C is the name of the control variable, 

Cl is the initial value of the control variable, 
C2 is the final value of the control variable, and 
D is the difference (positive or negative) between 
successive values of C. C is called the control variable 
because it controls the number of times the statements 
between FOR and NEXT are executed. 

Now let’s look at the statements between the FOR 
and NEXT statements. The statement PRINT “*****’’ 
causes five stars to be printed on the same line. This task 
can also be thought of as printing on one line, one star at 
a time, five times. To do it this way, however, it’s 
necessary to build a loop within a loop. Thus, 20 PRINT 
“*****’’ could be replaced by 

19 FOR S = 1 TO 5 

20 PRINT 

21 NEXT S 

Inserting these steps in the program SQUARE/ 
ELEMENTARY, we obtain: 


10 FOR C«1 TO 5 PROGRAM SQUARE/2 LOOP 

19 FOR S*1 TO 5 

20 PRINT "*"* 

21 NEXT S 
30 NEXT C 
40 END 
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SQUARE 


When run, however, this program draws the following 
design: 


OUTPUT ************************* 

which is not what we expected (certainly I didn’t). After 
five stars have been printed and C goes to its next value, 
which is 2, the semi-colon at the end of line 20 inhibits 
the line feed and causes the computer to continue print¬ 
ing on the same line. To signal the computer to move to 
the next line after the inner loop has been satisfied, we 
must insert a blank PRINT statement after the NEXT S 
statement, but before the NEXT C statement. Here is 
the desired program: 


PROGRAM 10 FOR C*1 TO 5 OUTPUT ***** 


19 FOR S»1 TO 5 ***** 

20 PRINT ••*"! ***** 

21 NEXT S ***** 

22 PRINT ***** 

30 NEXT C 

40 END 


You have just seen an example of a nested loop, that is a 
loop within a loop. Look at it this way: 


C 

LOOP 


-10 FOR C»1 TO 5 

i—19 FOR S»l TO 5 

LOOP 20 PF UNT M * M * 

'—21 NEXT S 
22 PRINT 

-30 NEXT C 

40 END 


To make nested loops obvious to the reader of your 
program (including yourself), you can indent the state¬ 
ments comprising the inner loop as follows: 

10 FOR C«1 TO 5 

19 FOR S»1 TO 5 

20 PRINT •♦*"; 

21 NEXT S 

22 PRINT 
30 NEXT C 
40 END 


In a simple design like a square, it’s quicker to use the 
PRINT “*****’’ statement instead of the nested loop, 
but nested loops have their value, as you shall see 
shortly. 


EXERCISE SET 4.1 


On-line: 

In each of these on-line exercises, use the pair of words 
FOR and NEXT as much as possible to produce the 
desired output. 

1. Write a program to generate the following output: 


25 

24 

23 

22 

21 

20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 
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2. Write a program to generate the following output: 


5 

10 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

35 

90 

95 

100 

105 

110 

115 

120 

125 


3. Write a program to generate the following output: 


* * * * * * * * * * * * * * * * * * * * * * * * * * 4c * ** 
4t*4'***4‘*4‘4‘4'*********4'********* 
****************************** 
****************************** 
****************************** 

4. Write a program to generate the following output: ******* 

******* 

******* 

******* 

******* 

******* 

******* 

******* 

******* 

******* 

******* 

******* 

******* 

5. Write a program to generate a rectangular design ******* 
with the dimensions to be supplied by the user. Your ******* 
program should produce the following: 

I CAN DRAW ANY SIZE RECTANGLE AS LONG 
AS YOU TELL ME ITS VI DTK AND LENGTH. 

VHENEVER YOU WISH ME TO STOP DRAWING 
TYPE IN 99 IN RESPONSE TO ROW WIDE. 

I*M READY TO DRAW A RECTANGLE. 

HOW WIDE? 5 
HOW LONG? 3 
***** 

***** 

***** 


I f M READY TO DRAW A RECTANGLE. 

HOW VIDE? 100 

SORRY# I CAN f T DRAW A RECTANGLE THAT WIDE. 
TRY AGAIN. 


I # M READY TO DRAW A RECTANGLE. 
HOW WIDE? I 
HOW LONG? 1 
♦ 


I f M READY TO DRAW A RECTANGLE. 

HOW WIDE? 99 

GOOD BYE---YOUR ELECTRONIC ARTIST. 151 
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4.2 PARALLELOGRAMS: THE TAB COMMAND 

Write a program to produce the following design: 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 


As in the last section, we’ll begin with an obvious 
PARALLELOORAM,ELEMENTARY P r0 S ram a " d work lowalds a versio " c0 " tainin 8 a lo<> P' 


PROGRAM 10 PRINT M 
20 PRINT M 
30 PRINT •• 
40 PRINT M 
50 PRINT ** 
60 PRINT •• 
70 PRINT M 
80 END 


XXXXX** OUTPUT XXXXX 


XXXXX** 

XXXXX** 

xxxxx •• 

XXXXX** 

XXXXX** 

XXXXX" 


XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 


To write the loop program, you need to know the 
maximum number of characters, alphabetic or numeric, 
that your terminal can print on one line. My terminal, 
the most common variety, is the Model 33 Teletype. 
Across the page there are 72 printing positions, or 
spaces, in which a character may be printed. You might 
say it looks like this, each dash indicating a space in 
which a character may be printed. 


5 10 15 20 25 30 35 40 45 50 55 60 65 70 

i i i i i j i i i i i i i i 


To draw a picture such as this: XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

you must specify the printing position to be occupied by 
each X. You can use graph paper. Or, as I’ve done here, 
you can hold down the REPEAT key to generate several 
lines of dashes. In either case, mark the positions to be 
occupied by an X. 
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-XXXXX- 

—xxxxx- 

-XXXXX-*- 

—-xxxxx- 

-xxxxx- 

-xxxxx- 

-xxxxx- 

1. The first line has 1 blank space followed by 5 X’s. 

2. The second line has 2 blank spaces followed by 5 
X’s. 

3. The third line has 3 blank spaces followed by 5 X’s. 

4. The fourth line has 4 blank spaces followed by 5 X’s. 

5. The fifth line has 5 blank spaces followed by 5 X’s. 

6. The sixth line has 6 blank spaces followed by 5 X’s. 

7. The seventh line has 7 blank spaces followed by 5 
X’s. 

Two tasks are involved in drawing the parallelogram. 

The first is to make the Teletype printing head count out 
the appropriate number of blank spaces on each line. 

The second task is to print the correct number of X’s, 
which in this case is always five. To cause the carriage 
to count off a specified number of blank spaces, we will 
use the TAB command. For instance, to move the 
carriage five spaces to the right, placing it in position to 
print in the sixth space, we write: 

PRINT TAB(5); 

We end the statement with a semi-colon, signalling the 
computer to print the next character in the sixth posi¬ 
tion. In the general case, to move the carriage N spaces 
in from the left margin you write: 

PRINT TAB(N); 

leaving the carriage ready to print in space N -f 1. With 
this new BASIC command, TAB, we can rewrite our 
program PARALLELOGRAM/ELEMENTARY to 
produce the following intermediate version. 

10 PRINT TABC 1>1 "XXXXX" PROGRAM XXXXX OUTPUT 


20 PRINT TABC 2)1 "XXXXX" XXXXX 

30 PRINT TABC3>*"XXXXX" XXXXX 

40 PRINT TABC4>I"XXXXX" XXXXX 

50 PRINT TABC5>I"XXXXX" XXXXX 

60 PRINT TABC6)I"XXXXX" XXXXX 

70 PRINT TABC 7) I "XXXXX" XXXXX 

30 END 


Look back at the elementary program; all we’ve done is 
eliminate the blank spaces in quotes. 

Now that I’ve shown you how to use the TAB com¬ 
mand in drawing a parallelogram, let me show you a 
program which uses a loop in drawing the same paral¬ 
lelogram. Look at the above program, particularly the 
sequence of numbers from 1 to 7 after the TAB com¬ 
mands. This sequence suggests a loop to me. To build 


PARALLELOGRAM/TAB 
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this program with a loop involves two tasks. This two- 
part procedure will be used not only to build a program 
to draw parallelograms, but also to build loop programs 
to draw triangles, diamonds and trapezoids. 

The two tasks are (1) determine how many lines of 
printing are needed to draw the picture, and (2) deter¬ 
mine the composition of each line of the design. The 
first task is usually easy. You look at the graph paper on 
which you laid out the figure and count the number of 
lines in the design. Write FOR and NEXT statements 
which will control the number of lines to be printed. In 
this parallelogram there are seven lines. Thus the first 
and last statements of the loop are: 

FOR L = 1 TO 7 


NEXT L 

Now let’s fill in the middle of the loop. What is the 
composition of each line in the design? Each line in this 
parallelogram is composed of a number of blanks fol¬ 
lowed by five X’s. Let us first find a formula which 
specifies the number of blanks to be counted off from 
the left margin on each line. To find the formula, make a 
table which lists the line number of the design and the 
number of blanks in that line. 


Line Number 
1 
2 

3 

4 

5 

6 
7 


Number of Blanks 
1 
2 

3 

4 

5 

6 
7 


In this case the number of blanks necessary for any line 
is the same as the line number. Thus, to draw line 3, we 
must leave three blanks before the five X’s, and to draw 
line 7, we must leave seven blanks before the five X’s. 
To draw any line L in this parallelogram, we count off L 
blanks before printing five X’s. As you learned in writ¬ 
ing PARALLELOGRAM/TAB, the BASIC word most 
helpful to us here is TAB. If we’re drawing line L, we 
can count off L blanks by writing PRINT TAB(L);. The 
semi-colon is required after TAB(L) for there is more 
printing to be done on the same line, in this case five 
X’s. We now insert PRINT TAB(L); in the loop im¬ 
mediately after the FOR statement. 

FOR L = 1 TO 7 

PRINT TAB(L); 

NEXT L 


After counting off L blanks from the left margin, the 
five X’s can be drawn by writing: PRINT “XXXXX”. 
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We insert this new statement after PRINT TAB(L);. 

FOR L = 1 TO 7 
PRINT TAB(L); 

PRINT “XXXXX” 

NEXT L 

Now we add line numbers and an END statement and 
have the following program to draw a parallelogram 
which slopes “downhill.” 

10 FOR L»l TO 7 PROGRAM XXXXX OUTPUT PARALLELOGRAM/DOWNHILL 
20 PRINT TAB(L )t XXXXX 

30 PRINT ,, XXXXX ,t XXXXX 

40 NEXT L XXXXX 

50 END XXXXX 

XXXXX 

XXXXX 


To reduce the number of lines in the program, you can 

combine lines 20 and 30 into one line, as shown below. „ __ 

PARALLELOGRAM/ 


10 

FOR L«1 TO 7 PROGRAM 

XXXXX OUTPUT 

DOWNHILL/ELEGANT 

20 

PRINT TAB(L)I M XXXXX M 

XXXXX 


30 

NEXT L 

XXXXX 


40 

END 

XXXXX 



XXXXX 

XXXXX 

XXXXX 


Now let’s write a program to produce a parallelogram 
which slopes “uphill.” 

Write a program to draw the following design. The 
dashes and column numbers are not part of the design. 
They are to help you count spaces. 

5 10 15 20 

_i_^_i_i 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

As in the development of the program PARAL¬ 
LELOGRAM/DOWNHILL, two operations are re¬ 
quired. (1) Determine how many lines of printing are 
needed to draw the picture, and (2) determine the com¬ 
position of each line of the design. There are seven lines 
in the new “uphill” parallelogram. Thus, the first and 
last statements of the loop are: 

FOR L = 1 TO 7 
NEXT L 

The next job is to determine the composition of each 
line. As in PARALLELOGRAM/DOWNHILL, each 
line is composed of a number of blanks followed by five 
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X’s. Here is a table listing the number of blanks on each 
line. 


Line 

Number 

1 

2 

3 

4 

5 

6 
7 


Number 
of Blanks 
7 
6 
5 
4 
3 
2 
1 


The number of blanks is no longer the same as the line 
number. What we need is an expression which will 
produce the value 7 when L is 1,6 when L is 2, 5 when L 
is 3, . . . , 1 when L is 7. Here’s a way to find the 
expression. For each line in the above table, find the 
sum of the line number and the number of blanks. 

Line Number 

Number of Blanks Sum 

1 7 8 

2 6 8 

3 5 8 

4 4 8 

5 3 8 

6 2 8 

7 1 8 


Notice in the new table the number of blanks is always 
equal to 8, minus the line number. In short, the expres¬ 
sion is 8-L. Try it. 

Line Number 

Number of Blanks 


1 

2 

3 

4 

5 

6 
7 


8-1=7 
8-2 = 6 
8-3 = 5 
8-4 = 4 
8-5 = 3 
8-6 = 2 
8-7=1 


As above, you will frequently discover a constant or 
some other “pattern” by adding or subtracting the line 
number and the desired number of blanks. The pattern is 
then useful in building the expression to generate the 
numberofblanks. In general, if the pattern isaconstant, 
try addition or subtraction in your expression. If the 
pattern is not a constant, try multiplication. 

Now that we have the expression 8 — L for the “up¬ 
hill’ ’ parallelogram, we insert after the FOR statement, 
PRINT TAB (8 - L);. 
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FOR L = 1 TO 7 
PRINT TAB (8 - L); 

NEXT L 
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To print out five X’s on each line, we now add PRINT 
“XXXXX” after PRINT TAB (8 - L);. 

FOR L = 1 TO 7 
PRINT TAB (8 - L); 

PRINT “XXXXX” 

NEXT L 

Adding line numbers and an END statement, we have 
the following program. 


10 FOR L»1 TO 7 PROGRAM XXXX< OUTPUT PARALLELOGRAM/UPHILL 

20 PRINT TAB(8-L)i XXXXX 

30 PRINT "XXXXX" XXXXX 

40 NEXT L XXXXX 

50 END XXXXX 

XXXXX 

XXXXX 


Lines 20 and 30 can be combined in one line as follows: 

10 FOR L«1 TO 7 PROGRAM XXXXX OUTPUT 

20 PRINT TAB(8-L) t "XXXXX" XXXXX 

30 NEXT L. XXXXX 

40 END XXXXX 

XXXXX 

XXXXX 

XXXXX 


PARALLELOGRAM/ 

UPHILL/ELEGANT 


There is a second program which will draw the paral¬ 
lelogram. To construct this new program we will follow 
the same two-part procedure, but will number the lines 
of the design in the reverse order. Up to this point we 
have always designated the top line of the design as line 
1, the next line as line 2, etc. This time we’ll number 
them as follows: 


Line 7 
Line 6 
Line 5 
Line 4 
Line 3 
Line 2 
Line 1 

If we adopt this new numbering scheme, the table which 
lists the line numbers and the number of blanks looks 
like this. 


XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

XXXXX 


Line 

Number 

7 

6 

5 

4 

3 

2 

1 


Number 
of Blanks 

7 

6 

5 

4 

3 

2 

1 


Now let’s follow our two-part procedure to write our 
new program. First, we write a loop to define the line 
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PARALLELOGRAM/ 
UPHILL/STEP -1 


numbers in the sequence 7, 6, 5, 4, 3, 2, 1. Earlier in 
this chapter you learned how to use a FOR statement to 
generate a sequence of numbers, in either ascending or 
descending order, by placing the modifier STEP after 
the word FOR. STEP is then followed by a number 
denoting the difference between successive numbers in 
the sequence. The FOR statement to generate 7, 6, 5, 4, 
3, 2, 1 is FOR L = 7 to 1 STEP - 1. We can now write 
the two loop control statements. 

FORL = 7 TO 1 STEP -1 

NEXT L 

The second task is to determine the composition of each 
line of the design. Look at the above table. In each case, 
the number of blanks is the same as the line number. 
Thus, when drawing line L, we count off L blanks and 
print five X’s. To count off L blanks, we add to our 
program PRINT TAB (L);. 

FOR L = 7 TO 1 STEP -1 

PRINT TAB(L); 

NEXT L 


To print the. five X’s, we add “XXXXX” after 
TAB(L);. After inserting an END statement and line 
numbers we have: 


PROGRAM 10 FOR L«7 TO 1 STEP -1 
20 PRINT TAB<L>;"XXXXX" 
30 NEXT L 
40 END 


OUTPUT XXXXX 
XXXXX 
XXXXX 
XXXXX 
XXXXX 
XXXXX 
XXXXX 


Numbering the lines of the design in reverse order, or in 
some other order, often makes it easier to find an ex¬ 
pression to be used with TAB. 


EXERCISE SET 4.2 


On-line: 

In each of these on-line exercises use the TAB com¬ 
mand and FOR and NEXT. Also, if appropriate, use 
nested loops. Dashes with column numbers have been 
given at the top and bottom of each design to aid in 
determining the exact location of blanks and characters. 
1. Write a program to draw this design: 


5 10 15 

I i I 


HELLO 

HELLO 

HELLO 

HELLO 

HELLO 
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2. Write a program to draw this design: 5 10 15 20 25 30 35 

t i i l l I i 


PPPPPPPPPPPPPPP 

PPPPPPPPPPPPPPP 

PPPPPPPPPPPPPPP 

PPPPPPPPPPPPPPP 

PPPPPPPPPPPPPPP 


3. Write a program to draw this design: 5 10 15 20 25 30 

i l i l l i 


$$$$$$$$$$ 

ssssssssss 

ssssssssss 

ssssssssss 

ssssssssss 

ssssssssss 

ssssssssss 

ssssssssss 

ssssssssss 

ssssssssss 


4. Write a program to draw this design: 5 10 15 20 


xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 


4.3 TRIANGLES, TRAPEZOIDS, AND DIAMONDS: 

TABBING FORMULAS 

In the first section of this chapter, you wrote pro¬ 
grams to draw squares and rectangles. These were easy 
to construct, since each line of the design had the same 
number of blanks from the left margin, followed by the 
same number of non-blank characters. In the last section 
you learned how to use a TAB expression to vary the 
number of blanks from the left margin for each line of 
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the design. In this section we’ll continue to use TAB to 
vary the number of blanks from the left margin, and, in 
addition, learn how to vary the number of non-blank 
characters to be printed on each line. 

Write a program to draw the following triangle. 
Dashes and column numbers have been provided to aid 
in identifying the exact location of the blanks and stars. 

5 10 15 

I i I 


* 

*** 

***** 

******* 

********* 

*********** 


t t t 

5 10 15 


TRIANGLE/ELEMENTARY 


An elementary program to draw this triangle is: 


TRIANGLE/TAB 


PROGRAM 10 PRINT M *" 

20 PRINT •• ***** 

30 PRINT " ******* 

40 PRINT ** ********* 

50 PRINT ** *********** 
60 PRINT '•************* 
70 END 


OUTPUT * 

*** 

***** 

******* 

********* 

*********** 


Using the TAB command, the program looks like this. 


PROGRAM 10 
20 
30 
40 
50 
60 
70 


PRINT TAB<5>J”*" 

PRINT TAB< 4) I ••***•• 

PRINT TAB< 3) I ••*****” 

PRINT TAB< 2) I ••*******•• 
PRINT TAB< 1)1 ••*********•• 
PRINT TAB(0) l M *********** M 
END 


OUTPUT * 

*** 

***** 

******* 

********* 

*********** 


Let’s proceed to a more elegant program to draw the 
desired triangle. As in developing the routine to produce 
the uphill and downhill parallelograms in the last sec¬ 
tion, two tasks are involved. (1) Determine how many 
lines of printing are needed to draw the design, and (2) 
determine the composition of each line of the design. 
Part one is easy. How many lines of printing are needed 
to draw the triangle? Six. Thus, the FOR and NEXT 
statements to define the loop are: 


FOR L = 1 TO 6 
NEXT L 


Now on to part two, the determination of the format of 
each line of the design. Here in table form is the struc¬ 
ture of each line of the triangle. 
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Line 

Number 

Number 

Number 

of Blanks 

of Stars 

i 

5 

i 

2 

4 

3 

3 

3 

5 

4 

2 

7 

5 

1 

9 

6 

0 

11 

Look at the table. Since the number of blanks varies 
from line to line and the number of stars varies from line 

to line, two expressions must be derived, one for the 
blanks and one for the stars. First the expression for the 
number of blanks. As in finding the expression for the 
number of blanks required to draw the uphill parallelo¬ 
gram, the first step is to try to find a constant, or some 
other pattern, by adding or subtracting each line number 
and the corresponding number of blanks for that line. 
When we subtract, the result is not a constant. When we 

add, the sum 

is always 6. Now can you find the expres- 

sion? Is the 

expression 6 — 

L or L — 6? The correct 

choice is 6 - 

- L. Let’s try it. 


Line 

Number 


Number L 

of Blanks 

6 — L 

i 

5 

6-1=5 

2 

4 

6-2=4 

3 

3 

6 - 3=3 

4 

2 

6-4=2 

5 

1 

6 - 5 = 1 

6 

0 

6 - 6=0 


We can now insert after FOR L = 1 TO 6 the statement 
PRINT TAB (6 - L);. 

FOR L = 1 TO 6 
PRINT TAB(6 - L); 

NEXT L 


Now for an expression that specifies the number of stars 
to be printed on each line. Here is a table listing just the 
line number and the number of stars. 


Line Number 
1 
2 

3 

4 

5 

6 


Number of Stars 
1 
3 
5 
7 
9 
11 


Look at the numbers in the Stars column. They are all 
odd numbers. We need an expression to generate odd 
numbers when the original sequence of numbers is 1,2, 
3, 4, 5, 6. An expression which produces the odd 
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TRIANGLE/BUG 


numbers is: 2*L - 1. Let’s try it. 


Line 

Number, L 
1 
2 

3 

4 

5 

6 


Number 
of Stars 
1 
3 
5 
7 
9 
11 


2*L — 1 _ 

2*1 - 1=2 - 1 = 1 
2*2 - 1=4 - 1=3 
2*3 - 1=6- 1=5 
2*4 - 1=8 - 1=7 
2*5 - 1=10 - 1=9 
2*6 - 1=12 - 1 = 11 


To print out 2*L - 1 stars on each line of the design, a 
loop must be inserted after PRINT TAB(6 - L);. Here 
is the S loop, nested in the L loop. 


FOR L = 1 TO 6 
PRINT TAB(6 - L); 

FOR S = 1 TO 2*L - 1 
PRINT “*”; 

NEXT S 
NEXT L 


Adding the END statement and line numbers, we ob¬ 
tain: 

PROGRAM 10 FOR L»l TO 6 OUTPUT 

20 PRINT TABC6-L); 

30 FOR S*1 TO 2*L-1 *********** 

40 PRINT "*"I 

50 NEXT S 

60 NEXT L 
70 END 

Look at the output. What happened to the triangle? Can 
you find the bug in the program? If you load and run the 
above program and watch the output carefully, you will 
observe: 

(1) Five blanks are counted off followed by one star. 

(2) The carriage is returned to the left margin without a 
line feed. 

(3) Four blanks are counted off followed by three 
stars. 

(4) The carriage is returned to the left margin without a 
line feed. 

(5) Three blanks are counted off followed by five 
stars, etc. 

What’s the problem? The difficulty stems from the 
semi-colon after “*” in line 40. After the inner loop is 
satisfied and the NEXT L is generated, printing con¬ 
tinues on the same line. To eliminate this bug, insert a 
blank PRINT statement after NEXT S. Here is our final 
program for the triangle. 
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10 FOR L«1 TO 6 
20 PRINT TABC6-L); 

30 FOR S*l TO 2*L 

40 PRINT M * M ; 

50 NEXT S 

55 PRINT 
60 NEXT L 
70 END 


PROGRAM * OUTPUT 
*** 

***** 

******* 

********* 

*********** 


TRIANGLE 


EXERCISE SET 4.3 


On-line: 

In each of these on-line exercises use the TAB com¬ 
mand and FOR and NEXT. Also ufce nested loops. 


1. Write a program to draw: 


5 10 15 20 

4 4 11 


>> 

>>> 

>>>> 

>>>>> 

>>>>>> 

>>>>>>> 

>>>>>>>> 

>>>>>>>>> 

>>>>>>>>>> 


t t 

t 

t 

5 10 

15 

20 

2. Write a program to draw: 

5 10 

15 

20 

1 1 

i 

i 


* 

*** 

***** 

******* 

********* 

*********** 

************* 



t t t t 

5 10 15 20 


3. Combining the methods you have learned for draw¬ 
ing triangles and rectangles, write a program to 
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draw a tree such as the following: 


* 

*** 

***** 

******* 

********* 

*********** 

************* 

*************** 

***************** 

******************* 

********************* 

*********************** 

************************* 

*************************** 

***************************** 

******************************* 

********************************* 

*********************************** 

************************************* 

*************************************** 

******* 

******* 

******* 

******* 

******* 

******* 

******* 


4. Write a program to produce the following diamond 
or one of your own design. 


♦ 

♦ ** 

***** 

******* 
********* 
*********** 
****♦**♦♦*♦♦* 
*************** 
***************** 
******************* 
***************** 
*************** 
************* 
*********** 
********* 
******* 

***** 

*** 

♦ 
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5. Write a program to produce the following trapezoid 
or one of your own design. 


##### 

###### 


## 

*_** 

##### 

***** 


WWW 

**** 
MM MM M 

W W W W W 

##### 

***** 

** 

M M M 

W W W w w 

###### 

W WWW w 

***** 

WWW 

**** 

####### 

***** 

***** 

***** 

######### 

########## 

w w w W w 

***** 

***** 

******* 


4.4 BLOCK LETTERS: SUBROUTINES 

You’ll have a lot of fun with a poster program which 
types out in large block letters any message you specify. 
Happily, you don’t need a different program for each of 
the 26 letters of the alphabet! In this section you will 
learn how to put subroutines together to build a new and 
complex program with a minimum amount of work. 


Write a program to type out the word LET as it 
appears at right. 


** * * * * * * * * * * * * * * * *** * * * * * * * * * * 
****************************** 
****************************** 
****************************** 
****************************** 
***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 


****************************** 

****************************** 

****************************** 

****************************** 

****************************** 


***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 


**** 

**** 

**** 

**** 

**♦♦ 

**** 

**** 

**** 

**** 

**** 


***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 


***** 

***** 

***** 

***** 

***** 

****************************** 

****************************** 

****************************** 

****************************** 

****************************** 

***** 

***** 

***** 

***** 

***** 
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5 14 17 26 30 

I II II 

1 -****************************** 

****************************** 

****************************** 

4c4t**************************** 

5 -****************************** 

6 -***** 

***** 

***** 


4**** 

***** 

***** 

***** 

***** 

15 -***** 

16 - 


Here is another copy of LET to which I have added 
column and line numbers for reference purposes. 


Let’s start in an elementary way, as we’ve done many 
times before. One way to draw LET is to write a pro¬ 
gram which has 55 PRINT statements, one for each line 
in the design. For example, to create line 1 you would 
write: 

I pj^ INT << ****************** * * ********4 j*” 

Or you can construct a loop for each line, such as this 
one for line 1. 


20 - 

21 -****************************** 

****************************** 

****************************** 

****************************** 


25-****************************** 


26-***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

4B**«* 

**** 

***** 

***** 

**** 

***** 

35-***** 

**** 

***** 


36- 


40 - 

41 - ***** 

***** 

***** 

***** 

45 - ***** 

46 -****************************** 

****************************** 
4t******* ********* ************* 
404**************************** 
50-****************************** 


51 - 


I 

14 


I 

17 


***** 

***** 

***** 

***** 

***** 

I I 

26 30 


1 FOR S = 1 TO 30 

2 PRINT 

3 NEXT S 

4 PRINT 

Either approach works, but is time-consuming and re¬ 
sults in an unwieldy program. 

The next best approach is to combine adjacent lines in 
units which require the same programming steps. 

1. Lines 1-5 consist of 5 lines with 30 stars each. 

2. Lines 6-15 consist of 10 lines with 5 stars each. 

3. Lines 16-20 consist of 5 blank lines. 

4. Lines 21-25 consist of 5 lines with 30 stars each. 

5. Lines 26-35 consist of 10 lines each with 5 stars 
followed by 8 blanks, 4 stars, 8 blanks, and 5 stars. 

6. Lines 36-40 consist of 5 blank lines. 

7. Lines 41-45 consist of 5 lines with 25 blanks fol¬ 
lowed by 5 stars. 

8. Lines 46-50 consist of 5 lines with 30 stars each. 

9. Lines 51-55 consist of 5 lines with 25 blanks fol¬ 
lowed by 5 stars. 
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A program which follows this analysis is: 

True, there are more lines (59) in this program than in a 
program in which there is one PRINT statement for each 
line (56 lines), but less typing is required, especially of 
stars. 

A further step in the same direction is to find elements 
of the design which are repeated. Look at the word LET. 
Find a rectangle which is repeated in each letter of the 
word. It is the rectangle formed by design lines 1-5, 
21-25, and 46-50. Look at the program LET/ 
ELEMENTARY and find the corresponding sets of 
program steps which draw this rectangle. The repeated 
set of program steps to draw this rectangle is: 

FOR L = 1 TO 5 

FOR S = 1 TO 30 

PRINT 

NEXT S 

PRINT 

NEXT L 

These six steps are repeated in LET/ELEMENTARY at 
program lines 5-30, 80-105, and 230-255. 

Find a second element of the design which is re¬ 
peated. The five blank lines between the letters L and E, 
and E and T are repeated. Can you find the correspond¬ 
ing set of program steps which generate these five blank 
lines? The set of steps is: 

FOR L = 1 TO 5 
PRINT 
NEXT L 

These three steps are repeated at program lines 65-75 
and 180-190. 

There is another rectangle which appears twice in the 
design. It is five stars wide and five stars long and forms 
the left and right branches of the letter T. Can you find 
the corresponding program steps in LET/ELE¬ 
MENTARY? They are: 

FOR L = 1 TO 5 
PRINT TAB(25); 

FOR S = 1 TO 5 
PRINT 
NEXT S 
PRINT 
NEXT L 

and are located at program lines 195-225 and 260-290. 
TAB(25); is needed to have the rectangle located 25 
spaces from the left margin. 

There is yet another rectangle which is repeated in the 
design. It occurs in design lines 6-15 and in lines 26-35 
as the top and bottom bars of the letter E. This rectangle 
is five stars wide and ten stars long. Although this 
rectangle is repeated in the design, design lines 6-15 are 


PROGRAM 

LET/ELEMENTARY 

5 

FOR L»1 TO 

5 



10 

FOR S*1 TO 

30 



15 

20 

PRINT 

NEXT S 


LINES 

1-5 

25 

PRINT 




30 

NEXT L 




35 

FOR L«1 TO 

10 



40 

FOR S* 1 TO 

5 



45 

PRINT 


LINES 

6-15 

50 

NEXT S 


55 

PRINT 




60 

NEXT L 




65 

FOR La! TO 

5 



70 

PRINT 


LINES 

16-20 

75 

NEXT L 




80 

FOR Lai TO 

5 



85 

FOR S*l TO 

30 



90 

95 

print 

NEXT S 


LINES 

21-25 

100 

PRINT 




105 

NEXT L 




110 

FOR Lai TO 

10 



1 15 

FOR S»1 TO 

5 



120 

print 




125 

NEXT S 




130 

PRINT TAB<13)1 



135 

FOR Sal TO 

4 



140 

PRINT "*"J 


LINES 26-35 

145 

NEXT S 




150 

PRINT TAB(25)J 



155 

FOR S®1 TO 

5 



160 

PRINT 




165 

NEXT S 




170 

PRINT 




175 

NEXT L. 




180 

FOR L»1 TO 

5 



185 

PRINT 


LINES 36-40 

190 

NEXT L 




195 

FOR L*1 TO 

5 



200 

PRINT TAB(25) 



205 

FOR S»1 TO 

5 



210 

PRINT 


LINES 

41-45 

215 

NEXT S 




220 

PRINT 




225 

NEXT L 




230 

FOR Lai TO 

5 



235 

FOR S* 1 TO 

30 



240 

245 

print 

NEXT S 


LINES 46-50 

250 

PRINT 




255 

NEXT L 




260 

FOR Lai TO 

5 



265 

PRINT TABC 25>I 



270 

FOR S»1 TO 

5 



275 

print 


LINES 

51-55 

280 

NEXT S 




285 

PRINT 




290 

NEXT L 




295 

END 
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5 14 17 26 30 

I II II 

1 -****************************** 

****************************** 

****************************** 

****************************** 

5 -****************************** 

6 -***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

15 -***** 

16 - 


20 - 

21 -****************************** 

****************************** 

****************************** 

****************************** 


25-****************************** 


26-***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

35 -***** 

36 - 

**** 

***** 


40 - 

41 - ***** 

***** 

***** 

***** 

45 - ***** 

46 -****************************** 

****************************** 
****************************** 
****************************** 
50-****************************** 


51 - 


I 

14 


***** 

***** 

***** 

***** 

***** 

I I 

26 30 


not entirely the same as design lines 26-35, and the 
corresponding set of program steps to draw lines 6-15 is 
not the same as the set of steps to draw design lines 
26-35. Look at the program LET/ELEMENTARY and 
see for yourself. 

To sum up, three patterns are repeated in the design, 
and three corresponding sets of instructions — or 
routines — are repeated in the program. Here are the 
repeated patterns: 

(1) The rectangle 30 stars wide and 5 stars long occurs 
three times. 

(2) The five blank lines occur twice. 

(3) The rectangle 5 stars wide and 5 stars long occurs 
twice. 

It must be possible to gain some advantage from the 
fact that the routines corresponding to the patterns are 
repeated in the program. We can reduce the overall 
number of steps in the program by entering into the 
program only once any set of steps that is repeated. 
These steps will be set aside in the program and iden¬ 
tified as subroutines. Any subroutine can be activated as 
required by the main program. 

Here is the architecture of a program which uses 
subroutines. The first section contains the main pro¬ 
gram and the second section all the subroutines. 


PROGRAM 


MAIN 

PROGRAM 


SUBROUTINES 


The command STOP marks the end of the main program 
or first section. As always, the last statement in the 
program is the END statement. Adding typical line 
numbers, the architecture of a program employing four 
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subroutines looks like this: 


PROGRAM 


10 

20 

30 

40 

50 

60 

70 

80 

90 

99 STOP 


100 

SUBROUTINE 1 


200 

SUBROUTINE 2 


300 

SUBROUTINE 3 


400 

SUBROUTINE 4 


500 END 


MAIN 

PROGRAM 


SUBROUTINES 


To signal the computer to jump from the main prog¬ 
ram to a particular subroutine, you write in the main 
program a statement which begins with GO SUB fol¬ 
lowed by the beginning line number of the subroutine 
you wish to activate. Thus, in the above example, if, in 
line 30, you wish to call for subroutine 1, you write in 
line 30 GO SUB 100. At the end of the subroutine, you 
put in a RETURN command. Thus, if the last line in 
subroutine 1 is 140, you write 150 RETURN. RETURN 
signals the computer to return to the main program and 
pick up where it left off. More precisely, in this case the 
computer would return to the next line after line 30, 
which is line 40. GO SUB is similar to the GO TO 
command, except that the GO SUB command allows 
the computer to reenter the main program and pick up 
where it left off when it encounters the RETURN state¬ 
ment at the end of the subroutine. Look at our example 
above. If we wish to activate subroutine 1 at line 30, 
subroutine 2 at line 40, subroutine 3 at line 60, sub¬ 
routine 2 at line 70, and subroutine 4 at line 90, our 
program looks like this: 
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PROGRAM 


10 


20 


30 

GO SUB 100 

40 

GO SUB 200 

50 


60 

GO SUB 300 

70 

GO SUB 200 

80 


90 

GO SUB 400 

99 

STOP 


100 


150 


RETURN 


200 


230 


RETURN 


300 


370 


RETURN 


400 


460 


RETURN 


500 


END 


MAIN 

PROGRAM 


SUBROUTINES 


Let’s construct a program using subroutines to draw 
LET. The program consists of two sections, either of 
which can be written first. Obviously the two parts are 
interrelated, however. If you write the main program 
first, you must keep in mind the various subroutines 
you’ll be writing in the second section. If you write the 
subroutines first, you know that, when you write the 
main program, you’ll be calling for them as needed. 
We’ll write the subroutines first and then the main 
program. 

The first subroutine will draw a rectangle 30 stars 
wide and 5 stars long. What shall we use for line 
numbers? When writing subroutines before writing the 
main program, you must make an educated guess as to 
the range of line numbers you should reserve for the 
statements in the main program. Let’s reserve lines 
1-499 for the main program and begin our first sub¬ 
routine at line 500. Here is subroutine 1 which draws the 
rectangle 30 stars wide and 5 stars long. 

Subroutine 1: 500 FOR L = 1 TO 5 

505 FOR S = 1 TO 30 
510 PRINT 
515 NEXT S 
520 PRINT 
525 NEXT L 
530 RETURN 
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Note the RETURN in line 530. 
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The second subroutine will generate five blank lines. 
To separate this second subroutine from the first, begin 
with line number 600. Changing the hundreds digit 
from 5 to 6 will aid in locating the two routines in the 
completed program. 

Subroutine 2: 600 FOR L = 1 TO 5 

605 PRINT 
610 NEXT L 
615 RETURN 


Don’t forget the RETURN statement to terminate the 
routine. 

The third subroutine will draw a 5 by 5 rectangle 25 
spaces from the left margin. We begin this third routine 
at line 700. 

Subroutine 3: 700 FOR L = 1 TO 5 

705 PRINT TAB(25); 

710 FOR S = 1 TO 5 

715 PRINT 

720 NEXT S 

725 PRINT 

730 NEXT L 

735 RETURN 

If we put these three subroutines together, the second 
section of the program looks like this: 


5 14 17 26 30 

I II II 

1 -****************************** 

****************************** 

****************************** 

****************************** 

5 -****************************** 

6 -***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

15 -***** 

16 - 


SUBROUTINE 1 


SUBROUTINE 2 


SUBROUTINE 3 


In constructing the main program, use the design of 
LET as a guide. The first design element you want to 
draw is a rectangle 30 stars wide and 5 stars long in 
design lines 1-5. The steps to draw this rectangle al¬ 
ready exist in subroutine 1 beginning at line 500. So the 
first step in the main program is: 

10 GO SUB 500 


500 FOR L*1 TO 5 
505 FOR S»1 TO 30 
510 PRINT 

515 NEXT S 

520 PRINT 

525 NEXT L 

530 RETURN 


600 FOR L»1 TO 5 
605, PRINT 

610 NEXT L 

615 RETURN 


700 FOR L«1 TO 5 

705 PRINT TA8(25>; 
710 FOR S*1 TO 5 

715 PRINT M * M ; 

720 NEXT S 

725 PRINT 

730 NEXT L 

735 RETURN 



800 END 


20 - 

21 -****************************** 

****************************** 
****************************** 
****************************** 
25-****************************** 


26 

- ***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 


***** 

**** 

***** 

35 

- ***** 

**** 

***** 


36- 


40 - 

41 - ***** 

***** 

***** 

***** 

45 - ***** 

46 -****************************** 

****************************** 

****************************** 

****************************** 

50 -****************************** 

51 - ***** 

***** 

***** 

***** 

55- ***** 

I II II 

5 14 17 26 30 
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5 14 17 26 30 

I II II 

1 —****************************** 
****************************** 
****************************** 
4*1**************************** 

5 -****************************** 

6 -***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

15 -***** 

16 - 


The second design element is a rectangle five stars wide 
and ten stars long in design lines 6-15. Since this ele¬ 
ment occurs only once, we have not put it in a sub¬ 
routine. It is programmed directly in the main program 
by adding the following lines. 

15 FOR L = 1 TO 10 
20 FOR S = 1 TO 5 
25 PRINT 
30 NEXT S 
35 PRINT 
40 NEXT L 


20 - 

21 -****************************** 

****************************** 
****************************** 
****************************** 
25-****************************** 


26-***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**** 

***** 

***** 

**«* 

***** 

35-***** 

**** 

***** 


36- 


40 - 

41 - ***** 

***** 

***** 

***** 

45 - ***** 

46 -****************************** 

****************************** 
****************************** 
****************************** 
50-****************************** 


51 - 


I I 

14 17 


***** 

***** 

***** 

***** 

***** 

I I 

26 30 


The third design element consists of 5 blank lines in 
design lines 16-20. Program steps to do this have al¬ 
ready been written as subroutine 2 beginning at line 
600. Add to the main program: 

45 GO SUB 600 

The next element is a rectangle 30 stars wide and 5 
stars long in design lines 21-25. To draw this rectangle 
again, we recall subroutine 1: 

50 GO SUB 500 

Design lines 26-35, the three bars of the letter E, 
occur only once in the design. The steps to draw them go 
directly in the main program. Read them carefully, 
particularly the commands TAB(13) and TAB(25). 

55 FOR L = 1 TO 10 
60 FOR S = 1 TO 5 
65 PRINT 
70 NEXT S 
75 PRINT TAB(13); 

80 FOR S = 1 TO 4 
85 PRINT 
90 NEXT S 
95 PRINT TAB(25); 

100 FOR S = 1 TO 5 
105 PRINT 
110 NEXT S 
115 PRINT 
120 NEXT L 


To draw design lines 36-40, the five blank lines, we call 
for subroutine 2 again. 


125 GO SUB 600 
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To draw design lines 41-45, the 5 by 5 rectangle, we call 
for subroutine 3, beginning at program line 700. 

130 GO SUB 700 

To draw design lines 46-50 we call for the first sub¬ 
routine again. 

135 GO SUB 500 

To draw design lines 51-55 we recall subroutine 3. 
140 GO SUB 700 

These are all the steps required to draw the design. A 
STOP statement must be written to keep the main pro¬ 
gram from running on into the second section. Be care¬ 
ful; the STOP statement is often forgotten in the first 
draft of the program. 

145 STOP 

Here is the complete main program. 


10 

60 SUB 

500 


15 

FOR L-1 

TO 

10 

20 

FOR S«1 

TO 

5 

25 

PRINT " 



30 

NEXT S 



35 

PRINT 



40 

NEXT L 



45 

GO SUB 

600 


50 

GO SUB 

500 


55 

FOR L»1 

TO 

10 

60 

FOR S*1 

TO 

5 

65 

PRINT " 



70 

NEXT S 



75 

PRINT TAB(13)1 

80 

FOR S*1 

TO 

4 

85 

PRINT •• 



90 

NEXT S 



95 

PRINT TAB(25>; 

100 

FOR S-l 

TO 

5 

105 

PRINT *• 



110 

NEXT S 



115 

PRINT 



120 

NEXT L 



125 

60 SUB 

600 


130 

GO SUB 

700 


135 

60 SUB 

500 


140 

60 SUB 

700 


145 

STOP 





Fun And Games With The Computer 


LET/3 SUB 


Combining the two sections we obtain the program 
LET/3 SUB. 


PROGRAM 


MAIN 

PROGRAM 


SUBROUTINES 


—10 GO SUB 500 < - 

15 FOR L*1 TO 10 
20 FOR S«1 TO 5 
25 PRINT 
30 NEXT S 
35 PRINT 

40 NEXT L - 

45 GO SUB 600 ◄- 

50 GO SUB 500 - 

55 FOR L»1 TO 10 
60 FOR Sal TO 5 
65 PRINT 
70 NEXT S 
75 PRINT TABC13>I 
80 FOR Sal TO 4 
85 PRINT "* M ; 

90 NEXT S 
95 PRINT TABC25)1 
100 FOR S*1 TO 5 
105 PRINT "*"1 
110 NEXT S 
115 PRINT 

120 NEXT L- 

125 GO SUB 600 «- 

130 GO SUB 700 < - 

135 GO SUB 500 ◄- 


140 GO SUB 700* 
1—145 STOP 


500 

FOR L* 1 

TO 

5 

— 

505 

FOR Sal 

TO 

30 


510 

PRINT " 




515 

NEXT S 




520 

PRINT 




525 

NEXT L 




530 

RETURN 



— 1 

600 

FOR Lai 

TO 

5 

— 

605 

PRINT 




610 

NEXT L 




615 

RETURN 



— 

700 

FOR L* 1 

TO 

5 

— 

705 

PRINT TAB<25>; 


710 

FOR S*1 

TO 

5 


715 

PRINT " 




720 

NEXT S 




725 

PRINT 




730 

NEXT L 




735 

RETURN 



— 

800 

END 





DESIGN LINES 1-5 


◄— DESIGN LINES 6-15 


DESIGN LINES 16-20 
DESIGN LINES 21-25 


DESIGN LINES 26-35 


DESIGN LINES 36-40 
DESIGN LINES 41-45 
DESIGN LINES 46-50 
DESIGN LINES 51-55 


SUBROUTINE 1 


SUBROUTINE 2 


SUBROUTINE 3 
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The advantage gained by using subroutines in this 
case is relatively small, reducing the number of steps 
from 59 to 48. But the saving can be greater in more 
complex programs. 

It is possible to further shorten the program LET/3 
SUB. There is a set of three steps which is repeated four 
times, three times in the main program and once in the 
subroutines: 


FOR S = 1 TO 5 
PRINT 
NEXT S 

These steps occur at: (1) program lines 20, 25, 30 (2) 
program lines 60, 65, 70, (3) program lines 100, 105, 
110, and at (4) program lines 710, 715, 720. This 
repetition of the same three steps suggests another sub¬ 
routine. Let’s write a fourth subroutine beginning at line 
800 and move the END statement to 900. 


Subroutine 4: 800 FOR S = 1 TO 5 

805 PRINT 
810 NEXT S 
815 RETURN 

Here is a copy of our new program, LET/4 SUB, to the 
right of LET/3 SUB. I’ve indicated where the three old 
steps have been replaced by GO SUB 800, further 
reducing the program from 48 to 44 steps. Note that 
subroutine 3, beginning at line 700, calls, in line 715, 
for subroutine 4. In other words, subroutines may be 
“nested” in much the same way as loops. 
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PROGRAM 


LET/3 SUB 


PROGRAM 


LET/4 SUB 


10 60 SUB 500 
15 FOR L*1 TO 10 
20 FOR S*l TO 5—i 
25 PRINT 

30 NEXT S- 

35 PRINT 
40 NEXT L 
45 60 SUB 600 
50 60 SUB 500 
55 FOR L*1 TO 10 
60 FOR S«1 TO 5—| 
65 PRINT "*"1 
70 NEXT S- 


75 PRINT TAB<13)1 
80 FOR S»1 TO 4 
85 PRINT 
90 NEXT S 
9 5 PRINT TABC 25> 1 
100 FOR S«1 TO 5—i 
105 PRINT 

110 NEXT S- 

115 PRINT 
120 NEXT L 
125 60 SUB 600 
130 60 SUB 700 
135 60 SUB 500 
140 60 SUB 700 
145 STOP 

500 FOR L»1 TO 5 
505 FOR Sal TO 30 
510 PRINT "*”J 
515 NEXT S 
520 PRINT 
525 NEXT L 
530 RETURN 
600 FOR L«1 TO 5 
605 PRINT 
610 NEXT L 
615 RETURN 
700 FOR L«1 TO 5 
705 PRINT TABC25)I 
710 FOR S-l TO 5—i 
715 PRINT |- 

720 NEXT S- 
725 PRINT 
730 NEXT L 
735 RETURN 
800 END 


10 

GO SUB 

500 

◄ —ACTIVATE 

SUB 1 

15 

FOR L»1 

TO 

10 


20 





►25 

GO SUB 

800 

◄ — ACTIVATE 

SUB 4 

30 





35 

PRINT 




40 

NEXT L 




45 

GO SUB 

600 

4 — ACTIVATE 

SUB 2 

50 

60 SUB 

500 

◄— ACTIVATE 

SUB 1 

55 

FOR L«1 

TO 

10 


60 





►65 

GO SUB 

800 

◄— ACTIVATE 

SUB 4 

70 





75 

PRINT TABC 13)1 


80 

FOR S*1 

TO 

4 


85 

PRINT " 

*”f 



90 

NEXT S 




95 

PRINT TABC25)1 


100 





105 

GO SUB 

800 

◄— ACTIVATE SUB 4 

110 





115 

PRINT 




120 

NEXT L 




125 

GO SUB 

600 

◄— ACTIVATE 

SUB 2 

130 

GO SUB 

700 

◄— ACTIVATE 

SUB 3 

135 

GO SUB 

500 

◄— ACTIVATE 

SUB 1 

140 

GO SUB 

700 

4 — ACTIVATE 

SUB 3 

145 

STOP 





500 

FOR La 1 TO 

5 

—1 

505 

FOR S*1 TO 

30 


510 

PRINT tf *"l 



515 

NEXT S 



520 

PRINT 



525 

NEXT L 



530 

RETURN 


— 1 

600 

FOR L«1 TO 

5 

— 

605 

PRINT 



610 

NEXT L 



615 

RETURN 


—* 

700 

FOR La 1 TO 

5 

— 

705 

PRINT TABC25); 


710 

715 

GO SUB 800 

r ACTIVATE 
^ L SUB 4 


720 



725 

PRINT 



730 

NEXT L 



735 

RETURN 


— 

800 

FOR Sal TO 

5 

— 

805 

PRINT 



810 

NEXT S 



815 

RETURN 


- 

900 

END 




SUBROUTINE 1 . 


SUBROUTINE 2 


SUBROUTINE 3 


SUBROUTINE 4 
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EXERCISE SET 4.4 

On-line: 

1. Write a program to print out the word HELLO or 
any other word you choose. Your program should 
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demonstrate that you understand subroutines by 
using GO SUB and RETURN as often as possible. 

4.5 SNOOPY: AN IRREGULAR DESIGN 

Look at the picture of Snoopy at the beginning of this 
chapter. It contains few if any repetitive patterns. There 
are no expressions for the number of blanks and stars on 
each line. No subroutines can be established. You must 
construct the design line by line. For example, to draw 
line 2 you write: 

2 PRINT “ * **” 

Taking this line for line approach, your program would 
consist of 45 lines: 44 PRINT statements, one for each 
of the 44 design lines, plus an END statement. One 
mistake in locating a star and you must retype the entire 
PRINT statement. 

There is, however, another approach to drawing 
Snoopy or any other picture. This new approach re¬ 
quires two new BASIC words: READ and DATA. You 
still have to count the number of blanks and stars to be 
printed on each design line, but correcting for mistakes 
is easier. Furthermore, once your drawing program is in 
the computer, you just input new data for each line of a 
new design. Moreover, you can store on paper tape or 
on cassette data for a variety of designs and simply load 
the data for the particular design you want drawn. 

4.5.1 DRAWING USING READ AND DATA 

For the sake of simplicity, let us look again at a 
regular design, the triangle. 

5 10 15 

i i i 


* 

♦ 4c* 
***** 
******* 
********* 
*********** 


****************************** 

****************************** 

****************************** 

** 

** 

** 

****************************** 

****************************** 

****************************** 


****************************** 

****************************** 

****************************** 


♦** 

** 

mmm 

*** 

** 

mmm 

*** 

** 

m mm 

*** 

** 

mmm 

*** 

** 

mmm 


****************************** 

****************************** 

****************************** 

*** 

*** 

*** 

*** 

mmm 


****************************** 

****************************** 

****************************** 

*** 

*** 

*** 

*** 

♦** 


****************************** 
****************************** 
****************************** 
*** *** 

*** *** 

*** *** 

****************************** 
****************************** 
****************************** 


As shown earlier, we begin by making a table showing 
the number of blanks and stars required on each line. 


Line 

Number 

Number 

Number 

of Blanks 

of Stars 

i 

5 

1 

2 

4 

3 

3 

3 

5 

4 

2 

7 

5 

1 

9 

6 

0 

11 
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At this point we depart from the method used earlier 
and introduce two new variables: B representing the 
number of blanks in a line, and S representing the 
number of stars in a line. Thus, for design line 1, B = 5 
and S = 1; for line 2, B = 4 and S = 3; for line 3, B = 3 
and S = 5; etc. We’ll now write a set of steps to draw 
design line 1. In the following routine, the C loop prints 
the number of stars represented by S. 

10 LET 8*5 
80 LET S* 1 
30 PRINT TABC B) 1 
40 FOR C*1 TO S 
50 PRINT M *"J 
60 NEXT C 
70 PRINT 


80 LET B*4 
90 LET S*3 
100 PRINT TABCB) I 
110 FOR C*1 TO S 
120 PRINT 
130 NEXT C 
140 PRINT 


Look at line 30. The command TAB(B); instructs the 
computer to leave B blanks from the left margin. In the 
case of design line 1, the computer leaves five blanks. 
The semicolon indicates there is more to come after the 
blanks. Look at the C loop, lines 40, 50 and 60. This 
loop will print S stars. In the case of design line 1, the 
computer prints one star. Again, the semicolon in line 
50 signals the computer to continue printing stars, if 
there are any, on the same line. In this case, however, 
there is only one star. When the C loop is satisfied, that 
is when S stars have been printed, the computer goes to 
the next statement in the program, line 70, the blank 
PRINT statement. The blank PRINT statement signals 
the computer to terminate printing on design line 1 and 
to advance to design line 2. To draw design line 2, we 
redefine B as 4 and S as 3. 


150 LET B»3 To draw design line 3, we redefine B as 3 and S as 5. 

160 LET S*5 
170 PRINT TABCB) I 
180 FOR C«1 TO S 
190 PRINT 
200 NEXT C 

210 PRINT We could continue, writing a similar set of seven 

steps to draw each of the remaining three lines of the 
design. But that would make a long program of 42 lines, 
seven program lines for each of the six design lines. 
Fortunately, the program can be shortened by putting 
five of each set of seven program lines in a subroutine: 


PRINT TAB(B); 
FOR C = 1 TO S 
PRINT 
NEXT C 
PRINT 
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Here is the program to draw the triangle. The subroutine 
begins at line 500. 


TRIANGLE/SUB 


10 

20 

30 

40 

50 

60 

70 

80 


90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

1—500 

510 

DRAW 520 
LINE 530 

540 

1—550 

600 


I Rat S_ 

LET S« I —I DATA F0R DESIGN LINE 1 

60 SUB 500 

LE I •*— DATA for DESIGN LINE 2 

LET S*3— 1 

60 SUB 500 

LET S*5— I DATA F0R DESIGN LINE 3 

GO SUB 500 
LET RaP_i 

LET 5»7— I *~" DATA F0R DESIGN LINE 4 

GO SUB 500 

i I data for DESIGN LINE 5 

LET S*9— 1 

GO SUB 500 

*— DATA FOR DESIGN LINE 6 

LET S*11 J 
GO SUB 500 
STOP 

PRINT TABCB)I 

FOR Ol TO S 

PRINT "* M J 

NEXT C 

PRINT 

RETURN 

END 


PROGRAM 


* OUTPUT 
*** 

***** 

******* 

********* 

*********** 


The above program requires twelve LET statements 
for the assignment of data to B and S. Let me show you a 
more concise way to assign data to B and S by using the 
new BASIC words READ and DATA. We begin the 
new program by building a FOR-NEXT loop. Since 
there are six design lines to be drawn we write: 

FOR L = 1 TO 6 
NEXT L 

Next we make a list of the values of B and S in the order 
in which they occurred in TRIANGLE/SUB. 

5, 1, 4, 3, 3, 5, 2, 7, 1, 9, 0, 11 

To put this list of numbers in the computer’s memory, 
we use a statement which begins with the command 
DATA, placing the data line at the beginning of the 
program. 


DATA 5,1,4,3,5,2,7,1,9,0,11 
FOR L = 1 TO 6 

NEXT L 

When the computer runs the program, it takes the num¬ 
bers in the data line and stores them in a data bank which 
looks like this. 


5 


7 


1 1 
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The computer uses a “pointer” to indicate the next 
number in the data bank to be assigned to B or S. 
Needless to say, at the beginning of the program the 
pointer points to the first box, like this: 


5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

11 


T 


DATA 

POINTER 


The pointer is implemented in the program by a 
READ statement. We write a READ statement which 
instructs the computer to go to the data bank, find the 
first number and assign it to B, and then find the second 
number and assign it to S. The statement, READ B, S, 
is put in the loop after FOR L = 1 TO 6. 


DATA 5,1,4,3,3,5,2,7,1,9,0,11 
FOR L = 1 TO 6 
READ B,S 
NEXT L 

The subroutine which draws each line in the triangle is 
the same subroutine used in TRIANGLE/SUB, begin¬ 
ning at line 500. The complete new program looks like 

TRIANGLE/READ/SUB this: 


PROGRAM l 

DATA 5> 1,9,0, i 1 

OUTPUT * 


1— 10 

FOR L=*1 TO 6 

*** 

6 

20 

READ B, S 

***** 

LINES 

30 

GO SUB 500 *— ACTIVATE DRAVy LINE 

******* 


— 40 

NEXT L 

********* 


50 

STOP 

*********** 


p500 

PRINT TAB(B)1 



510 

FOR Ol TO S 


DRAW 

520 

PRINT "*"< 


LINE 

530 

NEXT C 



540 

PRINT 



L 550 

RETURN 



600 

END 



Let’s play computer. In line 1, we enter the data into 
the computer’s memory. 


5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

11 


In line 10, the computer starts into the loop. The loop 
counter, L, is 1. Then the computer executes 20 READ 
B, S. This command instructs the computer to go to the 
data bank, locate the pointer, and assign to the variable 
B the number in the box above the pointer, B = 5. The 
pointer is then moved one box to the right. 
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So much for B. The comma after B in the statement, 
READ B,S, signals the computer there is another vari¬ 
able in the READ statement. In this case the next vari¬ 
able is S. The computer goes again to the data bank and 
locates the number in the box above the pointer and 
assigns this to S. The pointer is then moved one box to 
the right. 


5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

1 1 


t 


After the READ statement has been executed the first 
time, the values of L, B, and S are: 


L 

B 

S 

1 

5 

1 


The next step in the program is 30 GO SUB 500. This 
directs the computer to go to the subroutine and draw a 
line using the above values of B and S. When the 
subroutine is completed, the computer returns to the 
main program and the NEXT L is executed, L = 2. 

The computer starts around the loop again. On the 
second execution of READ B, S, the computer goes to 
the data bank, locates the pointer and assigns the value 
in the box above the pointer to B. Again the pointer is 
moved one box to the right. The value in this box is 
assigned to S and the pointer is moved to the right once 
more. 


5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

11 


t 


Having executed the READ statement for the second 
time, the values of L, B, and S are: 


L 

B 

S 

2 

4 

3 


The subroutine is activated and design line 2 is drawn. 

The computer returns to the main program and the 
NEXT L is executed, starting the computer around the 
loop for the third time. READ B, S is executed, after 
which the pointer is located at: 


5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

11 


r 


L 

B 

S 

3 

3 

5 


And the values of L, B, and S are: 
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The subroutine is activated again and line 3 is drawn. 


The computer returns to the main program and the 
NEXT L is generated. READ B, S is executed. The 
pointer now has been moved to: 



Line 4 is drawn. 


The NEXT L is generated, and the computer starts 
around the loop again. B and S are assigned the values 1 
and 9, and line 5 is drawn. While executing READ B, S, 
the pointer is moved to: 



Line 5 is drawn. 

The NEXT L is generated. The last two values in the 
data bank, 0 and 11, are assigned to B and S. There are 
no more numbers in the bank. The pointer now points to 
an empty box. 



Line 6 is drawn. 

There is no next L. The loop has been satisfied and 
the program goes to the next step, 50 STOP. To sum up, 
the pointer has travelled from left to right across the data 
bank as shown here. 
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So much for playing computer with TRI¬ 
ANGLE/READ/SUB. Since the “draw” subroutine is 
used only once, why not put it in the main program, 
eliminating the GO SUB, RETURN and STOP 
statements? 

t DATA 5/ Ii4>3i3i5#2i 1> l,9*0, 1 1 
10 FOR L* 1 TO 6 
20 READ B*S 
30 PRINT TAB< B )l 
40 FOR CM TO S 
50 PRINT M * M ; 

60 NEXT C 
70 PRINT 
80 NEXT L 
90 END 


6 

LINES 


DRAW 

LINE 


TRIANGLE/READ/ NO SUB 
PROGRAM 


The data line may be placed anywhere in the program 
before the END statement. The DATA statement is not 
executed in sequence with the other statements, like 
LET or PRINT. The line just holds the numbers which 
are to be stored in the computer’s memory. For exam¬ 
ple, in the program above, the DATA line is placed in 
line 1, outside the loop. In the program below it is 
placed in the loop. 

TRIANGLE/READ/IN-LOOP 

10 FOR LM TO 6 PROGRAM 

—Ml DATA 5# 1#4#3#3#5#2# Is 1#9,0, 1 1 
20 READ B,S 
30 PRINT TABC B )% 

40 FOR CM TO S 
50 PRINT 
60 NEXT C 
70 PRINT 
30 NEXT L 
90 END 


Here it is again placed outside the loop, directly before 


the END statement. 

10 FOR LM ft) 6 
20 READ B* S 
30 PRINT TABC B )% 

40 FOR C*l TO S 
50 PRINT ”* M J 
60 NEXT C 
70 PRINT 
80 NEXT L 

—►SI DATA 5*1>4>3#3#5*2#7#1#9#0>1 
90 END 


TRIANGLE / READ /OUT-LOOP 
PROGRAM 


In general, it’s desirable to place the DATA line outside 
the loop to keep the loop uncluttered. 

In the above programs all the data are listed on one 
line. In the case of a more complicated design, like 
SNOOPY, imagine the difficulty you would have in 
quickly finding an incorrect value for B or S, should an 
error occur in the location of a blank or star. To make it 
easier to correct the data, it is sometimes desirable to put 
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TRIANGLE/READ 


the data for each design line on a separate program line 
with a corresponding line number, like this: 


PROGRAM 


—► 1 

DATA 5*1 


—►2 

DATA 4* 3 


—►3 

DATA 3*5 


—►4 

DATA 2*7 


—►5 

DATA 1*9 


—►6 

DATA 0*11 


10 

FOR L»1 TO 

6 

20 

READ B* S 


30 

PRINT TAB(B) l 

40 

FOR C»1 TO 

S 

50 

PRINT "+"l 


60 

NEXT C 


70 

PRINT 


30 

NEXT L 


90 

END 



EXERCISE SET 4.5.1 


Off-line: 


1. Here is the program TRIANGLE/READ with the 
data lines omitted. 


!0 FOR L=l TO 6 
20 READ B*S 
30 PRINT TAB< B) l 
40 FOR C»1 TO S 
50 PRINT 
60 NEXT C 
70 PRINT 
30 NEXT L 
9 0 END 


5 10 15 

i i i 


**** 

***** 

****** 

****** 

***** 

**** 


A. Add the following DATA line to the above pro¬ 
gram, then play computer to determine the de¬ 
sign that would be drawn. 

85 DATA 5,4,5,4,5,4,5,4,5,4,5,4 

B. Substitute the following DATA line in the above 
program. Play computer to determine the design 
that would be drawn. 

85 DATA 1,5,2,5,3,5,4,5,5,5,6,5 

C. Substitute the following DATA line in the above 
program and play computer. 

90 DATA 0,11,1,9,2,7,3,5,4,3,5,1 

D. Substitute in the above program a DATA line 
which will cause the computer to draw this de¬ 
sign at left. 


t t t 

5 10 15 
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4.5.2 DRAWING USING FLAG 100 

Let’s try to develop a general purpose drawing 
routine in which all of the design characteristics, includ¬ 
ing the number of design lines, are specified in the 
DATA lines. Look at this listing of TRIANGLE/ 

READ. 

1 DATA 5; 1 PROGRAM 

2 DATA 4*3 

3 DATA 3*5 

4 DATA 2*7 

5 DATA 1*9 

6 DATA 0*11 

10 FOR L«l TO 6 
20 READ B* S 
30 PRINT TAB(B); 

40 FOR C*1 TO S 
50 PRINT M *"J 
60 NEXT C 
70 PRINT 
30 NEXT L 
90 END 


TRIANGLE/READ 


The above program uses a FOR-NEXT loop to con¬ 
trol the number of design lines. We can eliminate the 
FOR-NEXT loop by using instead the number flag 100 
to signal the computer when to stop drawing. Make the 
following modifications in the above program: 

(1) Insert: 7 DATA 100 

(2) Delete: 10 FOR L = 1 TO 6 

(3) Replace 80 with: 80 GO TO 20 

(4) Insert: 25 IF B = 100 THEN 90 


Here is the above program, TRIANGLE/READ, with 
the modifications. A typical run follows. 


1 DATA 5*1 PROGRAM 

2 DATA 4*3 

3 DATA 3*5 

4 DATA 2* 7 

5 DATA 1*9 

6 DATA 0*11 

7 DATA 100 
20 READ B* S 

25 IF B»100 THEN 90 
30 PRINT TAB< B)I 
40 FOR C«1 TO S 
50 PRINT "** 

60 NEXT C 
70 PRINT 
30 GO TO 20 
9 0 END 


* OUTPUT TRIANGLE/OUT OF DATA 

*** 

***** 

******* 

********* 

*********** 


OUT OF DATA IN LINE 20 


Look at the output. The triangle is fine, but we certainly 
don’t want the message OUT OF DATA IN LINE 20 to 
be part of the design. Let’s play computer to find out 
why that line appeared. When scanned by the computer, 
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the seven DATA lines establish the following data bank 
for the design. 


5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

11 

100 

t 


The following diagram shows the progress of the 
pointer from left to right as each design line is drawn. 
This is how it looks to the computer. 

LINE 

1 

LINE 

2 

LINE 

3 

LINE 

4 

LINE 

5 

LINE 

6 


B 

1 

S 

r 

B 

1 

S 

1 

B 

1 

S 

B 

1 

S 

1 

B 

1 

S 

1 

B 

1 

s 

B 

5 

1 

4 

3 

3 

5 

2 

7 

1 

9 

0 

11 

100 


POSITION OF 
POINTER AFTER > 
DRAWING ... I 


t t t 


LINE 

LINE 

LINE 

1 

2 

3 


t t r 


LINE 

LINE 

LINE 

4 

5 

6 


Look at the last position of the pointer in the above 
diagram. It is pointing to the number 100. Why doesn’t 
the computer print 100 blanks? It doesn’t print 100 
blanks because the statement 20 READ B, S can only be 
satisfied if there are two numbers available to read in the 
data bank. There’s only one number left. The computer 
is stymied! It sends out a message for help, “OUT OF 
DATA IN LINE 20.’’ To avoid this difficulty, instruct 
the computer to read only one number at a time from the 
data bank instead of a pair. Separate the message READ 
B, S, into two READ statements like this: 

20 READ B 

26 READ S 


TRIANGLE/FLAG 100 


Here is the revised program. 


PROGRAM 1 

2 

3 

4l 

5 

6 
7 

20 

25 

26 
I—30 


DRAW 

LINE 


40 

50 

60 


1 —70 


80 

90 


DATA 5, 1 
DATA 4# 3 
DATA 3#5 
DATA 2,7 
DATA 1,9 
DATA 0, 1 1 
DATA 100 
READ B 

IF B»100 THEN 90 
READ S 

PRINT TAB(B); 

FOR C*1 TO S 

print 

NEXT C 
PRINT 
GO TO 20 
END 


TEST FOR FLAG 100 
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Here is a flow chart that shows the function of the 
IF-THEN statement in testing for FLAG 100. 



DRAW FLAG/100 
FLOW CHART 


EXERCISE SET 4.5.2 


Off-line: 


1. Play computer with this program and draw the out¬ 
put. 


1 DATA 0, 10,8, 1, 7, 1, 6, 1 

2 DATA 5, 1,4, I, 3, 1,2, 1 

3 DATA 1, 1, 0, 10, 100 
20 READ b 

25 IF B-100 THEN 90 

26 READ S 

30 PRINT TAEK bit 
A it FOR C*1 TO S 
50 PRINT "* M i 
60 NEXT C 
70 PRINT 
8 0 GO TO £0 
90 END 


i 


10 

1 


HI 


15 

i 


* * ***** 


4.5.3 DRAWING USING FLAG 99 AND TAB c 

COUNTER TRIANGLE 

Compare the designs at right. Each design line in * 

the triangle consists of one set of blanks, followed by ***** 

one set of stars. On the other hand, each line in the ******* 
design HI is composed of two or three sets of blanks, ********* 
separated by one or more stars. *********** 


* * * 

***** * 

* * * 

* * ***** 


t t t 

5 10 15 
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DRAW/FLAG 100 
HI 

5 10 15 

1 1 I 


* * ***** 

* * * 

***** * 

* * * 

♦ * ***** 


t t t 

5 10 15 


We can’t use the old routine TRIANGLE/FLAG 100 to 
draw the new design because each time the “star print¬ 
ing’’ loop, lines 40, 50 and 60, is satisfied, the blank 
PRINT statement in line 70 switches the output to the 
next line. Let’s fix up the old routine so that the compu¬ 
ter will not go to a new design line until it completes the 
one it is drawing. To signal the computer that it is at the 
end of a design line, let’s insert a new flag, 99. 

We think of each design line as composed of pairs of 
blanks (B) and stars (S). For example, the first pair in 
the first design line is B = 0, S = 1. The second pair is 
B = 3, S = 1. The third and final paif is B = 2, 
S = 5. These data are placed in program line 1, with 99 
at the end. 


1 DATA 0,1,3,1,2,5,99 


The next design line is made up of the following pairs: 
0,1; 3,1; 4,1, and is represented by the following DATA 
line. 


2 DATA 0,1,3,1,4,1,99 

Design line 3 consists of the following pairs: 0,5; 4,1, 
and is represented by the following DATA line: 

3 DATA 0,5,4,1,99 


FLOW CHART 



Count the blanks and stars in the design lines 4 and 5 and 
complete the corresponding DATA lines below: 

4 DATA 

5 DATA 

That completes the five-line design. To signal the com¬ 
puter that the design is finished, insert 

6 DATA 100 

Adding 99 to the end of each data line is only half the 
job. A test for 99 must also be inserted in the program, 
after the computer reads a value for B. Look again at the 
flow chart for DRAW/FLAG 100. 


Where should the test for this second flag be inserted? 
The best place is immediately after the computer 
read|s a value for B. After the READ B box, insert a 
new diamond containing the question IS B = 99? If the 
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answer is YES, the blank PRINT statement is executed. 




From this flow chart the following program is encoded. 


HI/FLAG 99 
PROGRAM 


TEST FOR FLAG 99 
-TEST FOR FLAG 100 


1 DATA 0*1*3*1>2*5*99 

2 DATA 0*1*3*1*4*1*99 

3 DATA 0*5*4*1*99 

4 DATA 9*1*3*1*4*1*99 

5 DATA 0*1*3*1*2*5*99 

6 DATA 100 

10 READ B 

20 IF B-99 THEN 1 00 «— 
30 IF B-100 THEN 120+- 
40 READ S 
50 PRINT TA8(B >X 
60 FOR C*1 TO S 
70 PRINT "* M ; 

80 NEXT C 
90 GO TO 10 
100 PRINT 
110 GO TO 10 
120 END 


Let’s play computer to verify that the new FLAG 99 
routine functions properly. The data bank looks like 
this: 

FLAG FLAG FLAG 

bsbsbsIbsbsbs! bsbsIb 


DATA 

LINES 


READ B 


DRAW/FLAG 99 
FLOW CHART 



YES 

BLANK 


PRINT 


DONE 


S B S 


FLAG 
B S i 


B S 


FLAG 

B S B S i 1 


0 

1 

3 

1 

2 

5 

99 0 

1 

3 

1 

4 

1 

99 

0 

5 

4 

1 

99 

0 

1 

3 

1 

71 

1 

99 

0 

1 

3 

1 

2 

5 

99 

100 


1 


_ 

1 1 


1_ 



LINE 1 


LINE 2 


LINE 3 


LINE 4 


LINE 5 


The action begins at program line 10 with READ B. B is 
assigned the value 0. That is, the value 0 is inserted in a 
memory cell labeled B: 


B is tested for 99 and 100. Since it is neither of these, the 
computer drops to 40 READ S. S is assigned the value 
1. The value 1 is inserted in a memory cell labeled S: 

Since B and S data only occur in pairs, it is unnecessary 
to test S for 99 or 100, so the computer drops from line 
40 to 50 PRINT TAB(B);. In the first pair of data B is 0, 
so the computer leaves 0 blanks from the left margin. If 
the computer had ordered the printer to print a character 
in space 1, even a blank, the print head would then have 
shifted automatically one space to the right, ready to 
print in space 2. In this case, however, because B is 0, 
the printing head just doesn’t move! 

5 15 


B 

0 


B 

s 

0 

1 


t 

PRINTING 

HEAD 
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DRAW 

FLOW CHART 


Having executed line 50, the computer drops to line 60 
and starts the C loop. S is 1, so a single star is drawn in 
space 1 and the printing head automatically shifts one 
space to the right, ready to print in space 2: 


10 


15 


* 


B 


©H 


T-O 


GH 


READ B 


B 

S 

3 

1 



PRINTING 

HEAD 

Having completed the C loop, the computer drops to 90 
GO TO 10. The computer returns to line 10 and looks 
for a new pair of data. When 10 READ B is executed, 
B is assigned 3, the third number in the data bank. 

B is tested for 99 and 100. Since it is neither, the 
computer drops to 40 READ S and assigns to S the value 
1, the fourth number in the data bank. 

Having found a new pair of data in lines 10 through 
40, the computer drops to 50 PRINT TAB(B);. In this 
pair, the number of blanks, B, is 3. That means the 
distance from the last star is three spaces. The command 
TAB(B), however, instructs the computer to count off 
three spaces from the left margin, not from the last star. 
To make the computer TAB over from the last star, 
rather than from the left margin, we need to set up in the 
computer a new procedure called a “TAB counter.” 

It will take three new steps, plus a change in an 
existing step, to add the TAB counter, call it T, into the 
DRAW/FLAG 99 flow chart. 


(END OF LINE) 
BLANK PRINT 


kD 


YES 

(END OF PICTURE) 


DONE 



.1 

READ S 

L 

taeH 

i. 

1 

FORC = 1 TO S 

1 

PRINT 

1 

NEXT C 

| 

T.T.S 




Look at the shaded box at the top of the chart: T = 0. 
This step sets the TAB counter at 0 at the beginning of 
each new design line. After locating a value for B, the 
computer checks to see if it is either 99 or 100. If it is 
neither, it goes to the second shaded box and adds the 
value of B to any previous value of T. 

After locating a value for S, the computer moves to 
the next step. This step was in the earlier chart, but has 
been altered by replacing TAB(B) with TAB(T). The 
new command, PRINT TAB(T);, causes the computer 
to count off a total of T spaces from the left margin, 
leaving the printing head ready to print in space or 
column T + 1. In short, T is a cumulative counter. 
After printing S stars, the last new step adds S spaces to 
T, and the computer goes back to look for the next pair 
qf data: B, S. 
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This flow chart is encoded as follows: 


—►10 LET T*0 DRAW 

20 READ B 

30 IF B*99 THEN 130 
40 IF B»100 THEN 150 
—►50 LET T*T+B 
60 READ S 

—►70 PRIMT TAB(T); 

80 FOR C»l TO S 

90 print 

100 NEXT C 
->110 LET T«T+S 
120 60 TO 20 
130 PRINT 
140 GO TO 10 
150 END 


Lines 10, 50, 70 and 110 correspond to the shaded 
boxes in the flow chart and implement the TAB counter. 
As before, if this general purpose program is to draw 
HI, we add six DATA lines: 

DRAW/HI 


1 DATA 0ili3>1*2*5*99 

2 DATA 0>l>3iL4iL99 

3 DATA 0*5*4* 1*99 

4 DATA 0*1*3* 1*4* 1*99 

5 DATA 0*1*3*1*2*5*99 

6 DATA 100 


This gives us: 1 
2 

3 

4 

5 

6 

10 

20 


^ 30 
40 
50 
60 

•y? 70 

-30 

>'*90 


100 
110 
120 
»v> 130 

^140 

150 


DATA 0*1*3*1*2*5*99 
DATA 0*1*3>1*4*1*99 
DATA 0*5*4*1*99 
DATA 0*1*3*1*4*1*99 
DATA 0*1*3*1*2*5*99 
DATA 100 
LET T»0 
READ B 

IF B=99 THEN 130 
IF B»100 THEN 150 
LET T*T+B 
READ S 

PRINT TAB< T )% 

FOR Ol TO S 
print 
NEXT C 
LET T*T+S 
GO TO 20 
PRINT 
GO TO 10 
END 

Here is a typical run. 


* *- ***** 

* * * 

***** * 

* * * 


You now have a general purpose program which will 
draw any design. Just draw your design on graph paper, 
count the number of blanks and stars in each design line, 
and match one DATA line to each design line. You can 
quickly correct any error in a design line by locating and 
repairing the corresponding DATA line. 


EXERCISE SET 4.5.3 


1. Create your own design and program the computer 
to draw it. Keep the design small, particularly if 
you’re on a small computer, for the numbers in your 
data line take considerable storage space. If I were 
you, I wouldn’t try SNOOPY just yet. 
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PLAITING BIG WHEEL 


DO YOU WANT INSTRUCTIONS? YES 


IMAGINE A LARGE CARNIVAL WHEEL, 6 FEET IN DIAMETER, 
DIVIDED INTO 9 EQUAL PIE-SHAPED PIECES. THREE SECTIONS 
ARE NUMBERED I, THREE SECTIONS ARE NUMBERED 2, TWO 
SECTIONS ARE NUMBERED 3, AND ONE SECTION IS NUMBERED 4. 

THE WHEEL WILL BE SPUN AND THEN YOU WILL HAVE AN 
OPPORTUNITT TO BET ON ONE OF THE FOUR NUMBERS 
BEFORE THE WHEEL COMES TO REST. 

AT THE START OF EACH GAME, YOU WILL RECEIVE 
A CERTAIN AMOUNT OF MONEY TO BET IN WHOLE 
DOLLAR AMOUNTS. 

SECTION NUMBERS PAYOFF AS FOLLOWS* 

1 PAYS 2 TIMES YOUR BET. 

2 PAYS 2 TIMES YOUR BET. 

3 PAYS 3.5 TIMES YOUR BET. 

4 PAYS 3 TIMES YOUR BET. 

WHEN YOU WANT TO Q’JITUF YOU DON'T GO BROKE FIRST) 

TYPE 99 WHEN ASKED TO PICK 1,2,3,4. 


LET'S GO. 

R.EASE TELL ME YOUR NAME? PETER 


YOU HAVE 80 DOLLARS TO PLAY WITH. 


--WHEEL IS SPINNING 
PICK 1,2,3,4? 1 

BET? 20 

-WHEEL STOPPED AT 2 

YOU LOSE S 20 
VHAT BAD LUCK. 

YOU NOW HAVE 60 DOLLARS. 


-WHEEL IS SPINNING 

PICK 1,2,3,4? 1 

BET? 20 

-WHEEL STOPPED AT 1 

YOU WIN $ 40 

YOU NOW HAVE 100 DOLLARS. 


-WHEEL IS SPINNING 

PICK 1,2,3,4? 99 

HOPE YOU HAD FUN PETER. COME BACK SOON. 



Playing BIG WHEEL 


5 

PLAYING BIG WHEEL 


The programs we have written so far have been rela¬ 
tively short, no more than 60 steps. You can imagine 
how confused you might become when writing a pro¬ 
gram containing 100 or more steps, unless you follow 
some standard procedure for organizing the program. In 
this chapter we will demonstrate such a procedure by 
writing a relatively large program called BIG WHEEL, 
which will bring together many BASIC words and most 
of the programming concepts introduced in the first half 
of this book. 

5.1 FIGURING THE PAYOFF 
The game is played using a big wheel like this: 



When the wheel is spun, the user is asked to pick the 
number, 1, 2, 3, or 4, at which he thinks the wheel will 
come to rest. At the same time he is asked to bet an 
amount of money on this choice. If the wheel comes to 
rest on his number, the user wins; otherwise he loses. 
Do you understand the rules, the sequence of play, and 
the procedure for determining a winner? It is important 
that you know these things before trying to program any 
game. 

When the wheel spins, which number will you bet 
on? Because of the construction of the wheel, not all 
numbers are equally likely to occur. The wheel is di¬ 
vided into nine equal pie-shaped pieces. Three pieces 
are numbered 1, three pieces numbered 2, two pieces 
numbered 3, and one piece numbered 4. The numbers 1 
and 2 are therefore more likely to occur than 3 or 4. 
Let’s be more precise in our description of the possible 
outcomes. 

If the wheel is spun, it may stop at any one of the 
pie-shaped pieces. We assume that the wheel will not 
come to rest on a line dividing two pieces of pie. Thus, 
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there are nine possible outcomes, three of which pro¬ 
duce 1, three of which produce 2, two of which produce 
3, and one which produces 4. The probability that the 
wheel will stop at the number 1 is greater than the 
probability that the wheel will stop at 4. The probability 
that the wheel will stop at 1 is the number of possible 
stopping places that produce 1, divided by the total 
number of stopping places on the wheel. Since 1 occurs 
three times on the wheel and the wheel has nine stopping 
places, then the probability that the wheel will stop at 1 
is 3/9 or 1/3. Similarly, the probability of the wheel 
stopping at 2 is 3/9 or 1/3. The probability the wheel will 
stop at 3 is 2/9, and at 4, 1/9. Here is a table listing the 
probability of each outcome: 


OUTCOME 

Number 1 
Number 2 
Number 3 
Number 4 


PROBABILITY 

1/3 

1/3 

2/9 

1/9 


Now for the payoff. In the long run do you want the 
player to win, lose, or come out even? Let’s set it up so 
that, after a very large number of games, the player 
comes out even. A game set up this way is called a fair 
game . Since the outcomes (1, 2, 3, or 4) are not equally 
likely, we have*to make some adjustment in the payoffs 
to insure that, in the long run, the player’s winnings 
equal his losses. In short, he must be paid more for a low 
probability outcome, one which occurs infrequently, 
than he is for a high probability outcome, that is one 
which occurs more often. 

Here is a table which summarizes the expected fre¬ 
quency with which he will win or lose when he picks 
each number. 


NUMBER 
BET ON 

1 

2 

3 

4 


NUMBER WAYS 
TO WIN 

3 

3 

2 

1 


NUMBER WAYS 
TO LOSE 

6 

6 

7 

8 


Suppose a stubborn player puts his money on number 1 
for 900 consecutive spins. Theory tells us he will lose 
600 times, and win 300 times. If he bets $ 1 on each spin, 
his losses will total $600. How much does he have to 
collect each time he wins in order to come out even? To 
offset his losses, he must collect $2 each time he wins, 
or two times the amount of his $ 1 bet. 

Suppose another player with a one-track mind plays 
number 2 for 900 consecutive spins. Theoretically at 
least, he will also lose 600 times, and win 300 times. If 
he bets $1 on each spin, his losses will total $600. Like 
the player who played number 1, he must also collect $2 
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each time he wins, or two times the amount of his bet. In 
short, the payoff factor when the player bets on number 
1 or number 2 is 2. 

Here is a table showing the payoff factor for two 


outcomes. 




NUMBER 

NUMBER WAYS 

NUMBER WAYS 

PAYOFF 

BET ON 

TO WIN 

TO LOSE 

FACTOR 

1 

3 

6 

2 

2 

3 

6 

2 

3 

2 

7 


4 

1 

8 


Suppose our stubborn player plays number 3 for 900 
spins. According to the table he can expect to lose 700 
times and win 200 times. If he bets $1 each time, how 
much does he have to collect each time he wins in order 
to offset his losses? Right, $3.50. So the payoff factor 


any time he bets on number 3 is 3.5. 



Finally, if he plays number 4 for 900 spins, he can 
expect to lose 800 times, and win 100 times. If he bets 


$1 each time, 

how much does he have to collect each 


time he wins? The payoff factor is 8. 



This table lists all four payoff factors. 



NUMBER 

NUMBER WAYS 

NUMBER WAYS 

PAYOFF 

BET ON 

TO WIN 

TO LOSE 

FACTOR 

1 

3 

6 

2 

2 

3 

6 

2 

3 

2 

7 

3.5 

4 

1 

8 

8 


Look at the fourth column. The payoff factor for each 
outcome can also be obtained by dividing the corre¬ 
sponding number in column three by the number in 
column two. 

In some real life gambling situations, such as 
roulette, the operator of the game collects all bets if the 
wheel stops on a particular number. For example, here 
is a wheel to which we have added a section bearing the 



You could set up a new game with this new wheel in 
which the player is not allowed to bet on the number 0. 
If the wheel stops on 0, the player always loses. He 
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cannot win. The new game is summarized in this table. 


SECTION 

NUMBER 

NUMBER WAYS 
TO WIN 

NUMBER WAYS 
TO LOSE 

0 

0 

10 

1 

3 

7 

2 

3 

7 

3 

2 

8 

4 

1 

9 


In this new game, if the stubborn player bets on number 
1 for 1000 consecutive spins, he can expect to lose 700 
times and win 300 times. If he bets $1 each time, his 
losses will total $700. If the payoff factor for this 
number is still 2, his winnings can only total $600, 
leaving him $100 in the hole. Using the new 10-section 
wheel and the old payoff schedule, do we still have a fair 
game? No, we don’t. To make it fair we would have to 
compute a new payoff schedule. 


EXERCISE SET 5.1 


Off-line: 

1. Set up a payoff schedule for a fair game played with 
the following wheel. The player can bet on any 
number. 



2. Set up a payoff schedule for a fair game in which the 
player bets whether the above wheel will come to 
rest on an even or odd number. 

3. Here is a wheel divided into segments that are col¬ 

ored either red(R) or black(B). Set up a payoff 
schedule for a fair game in which the player bets on 
whether the wheel will come to rest on either red or 
black. ^—i— 
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5.2 WRITING AND TESTING THE PROGRAM 


The first step in writing the program BIG WHEEL is 
to list the sequence of events in a typical game: 

1. Ask player to pick a number, 1, 2, 3, or 4. 

2. Ask player for amount of his bet. 

3. Spin the wheel. 

4. Stop the wheel at a number. 

5. Did player win? 

6. If so, compute the payoff. 

7. If not, collect his bet. 

The next step is to visualize the output at the terminal. 

Here is some typical dialogue that may occur after the 
player types in RUN: 

PICK 1, 2, 3, 4? _2*- PLAYER’S NUMBER 

BET? _10_ ◄- PLAYER’S BET 

STOPPED AT JL * -WHEEL NUMBER 

YOU LOSE $10 ◄- AMOUNT LOST 

YOU NOW HAVE_ 


At this point you want to tell the user how many dollars 
he has left, but you don’t know how much he started 
with. So let’s assume the user starts with $100. We’ll 
tell him this at the start of the program. 


YOU HAVE 100 DOLLARS <«- 

PICK 1, 2, 3, 4? 2_ ◄- 

BET?10 ◄- 

STOPPED AT l_< - 

YOU LOSE $10 ◄- 

YOU NOW HAVE 90 DOLLARS *— 

PICK 1,2,3,4? i 4- 

BET? 30 + - 

STOPPED AT 1 ◄- 

YOU WIN $ 60 ◄- 

YOU NOW HAVE 150 DOLLARS +— 


INITIAL BANKROLL 
PLAYER’S NUMBER 
PLAYER’S BET 
WHEEL NUMBER 
AMOUNT LOST 
CURRENT BANKROLL 
PLAYER’S NUMBER 
PLAYER’S BET 
WHEEL NUMBER 
AMOUNT WON 
CURRENT BANKROLL 


What about players who bet when they are bankrupt? 
What about players who pick a number that is not on the 
wheel? Certainly you’ll want to do something about 
these possibilities later, but it is more important now 
to restrict yourself to the above output. 

To write the program steps that will achieve the above 
output, you first list the variables needed in the program 
and the purpose of each. We need variables to represent 

(1) the total amount of money the user has at any 
given moment, 

(2) the number he selects, 

(3) the amount of his bet, 

(4) the number at which the wheel stops, and, not so 
obvious, 

(5) a variable to indicate the payoff factor. 

Use as names of variables letters which help you 
remember what they stand for: 

M represents the total amount of money the user 
has to bet. 

N represents the number selected by the user. 
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M = 

100 


GE1 

r n 


GET 

B 



SPIN V 
STO 
V 

WHEEL 

3 AT 

V 


B represents the amount of money bet by the user on 
his number. 

W represents the number at which the wheel comes 
to rest. 

P represents the payoff factor. 

Here is a revised list of events in which we have 
substituted the new variable names: 

1. Start the user off with 100 dollars; M = 100. 

2. Get the user’s number, N. 

3. Get the user’s bet, B. 

4. Spin the wheel and have it come to rest at W. 

5. Check to see if N is the same as W. 

6. IfN = W, use P to compute payoff; if not, take B. 

7. Go back and play again. 

Putting this sequence of events into a flow chart, still 
using variable names, we have: 


is 

n = w? 


YES 

PAYOFF 


P* B 


TAKE MONEY 
B 


Now for the program. Let’s start with the operation 
SPIN WHEEL STOP AT W. We need a routine that 
assigns 1 to W 1/3 of the time, 2 to W 1/3 of the time, 3 
to W 2/9 of the time, and 4 to W 1/9 of the time. The first 
step is to generate a whole number R at random between 
1 and 9. We then instruct the computer to output 1 if R is 
1, 2, or 3; 2 if R is 4, 5, or 6; 3 if R is 7 or 8; and 4 if R is 
9. Here is the correspondence between random number, 
R, and wheel outcome, W, summarized in a table. 


RANDOM WHEEL 

NUMBER NUMBER 
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You will find that it makes your work easier if you 
treat this routine as a subroutine, instead of incorporat¬ 
ing it in the main program. It is not that it is used 
repeatedly in the game, it is used only once, but that 
it makes it easier to isolate and identify individual game 
functions in this long program. To do this, however, we 
must have some idea of the general organization of the 
program. We must reserve some line numbers for the 
main program. If we reserve lines 1-199 for the main 
program, we can start the first subroutine at line 200. 

The first step in the subroutine is to write a BASIC 
statement which will generate a random whole number 
between 1 and 9 inclusive. We develop the expression as 
follows: 


1. 




RND(X) gives us a number between 0 and 1 as 
pictured below. 


(j>— 


o 


i 


> 


2. Expand the interval by multiplying RND(X) by 9, 
thus: 9*RND(X) 



01 23456789 


3. The expression to this point gives us decimal 
numbers, e.g.: 7.2. Use INT to transform these 
decimal numbers into whole numbers, thus: 
INT(9*RND(X)) 

—•-•-•-•-•-•-•-•-•- 1 -► 

01 234567 89 


4. Shift the set of numbers to the right by adding 1 to 
the expression, thus: INT(9*RND(X))+1 

4 - 1 -•-•-•-•-•-•-•-•-•— 

0123456789 


The first step of the subroutine is therefore: 

200 LET R = INT(9*RND(X))+1 
The remainder of the flow chart is made up of 
diamonds, which are translated into BASIC by using 
IF-THEN statements. 

Recall that a subroutine requires a RETURN state¬ 
ment. This routine has four termination points, and will 
therefore require four RETURN statements, one at the 
end of each branch. Here is the complete subroutine. 


Play computer to check out the subroutine: If the com¬ 
puter generates a random number R = 4, at what 
number does the wheel come to rest and what is the 
payoff factor? 


SPIN WHEEL STOP AT W 
SUBROUTINE 


200 LET R*INT(9*RND(X))+1 

205 IF R<-3 THEN 265 

210 IF R<-6 THEN 250 

215 IF R<«8 THEN 235 

220 LET W-4 

225 LET P»8 

230 RETURN 

235 LET V-3 

240 LET Pa3#5 

245 RETURN 

250 LET V-2 

255 LET P*2 

260 RETURN 

265 LET V-l 

270 LET P-2 199 

275 RETURN 
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GM 


M = 

100 



GET N 


Having completed the subroutine for SPIN WHEEL, 
STOP AT W, look again at the flow chart for the entire 
game. 


The main program for BIG WHEEL is written as fol¬ 
lows. The first instruction in the flow chart, 



M = 100 


YES 

PAYOFF 


P * B 


is translated into BASIC as 
20 LET M = 100. 

I’ve started with line number 20 because I want line 10 
for the RANDOM statement. Usually I’ve placed the 
RANDOM statement in line 1, but I wish to reserve the 
first ten lines for comments which will be added later. 

Following this initialization of the player’s bankroll, 
a statement must be written to convey to the player how 
much money he has. We write: 

30 PRINT “YOU HAVE’’ M “DOLLARS 
TO PLAY WITH.’’ 


The next instruction is 


GET N 


It is now time to get the player’s number, N, but first we 
tell him to pick 1, 2, 3, or 4: 

40 PRINT “PICK 1,2,3,4’’; 

The next statement, 50 INPUT N, puts a question mark 
on the page and instructs the computer to wait for the 
player to type 1, 2, 3, or 4. Notice that we added a 
semicolon at the end of line 40. This places the question 
mark after “PICK 1,2,3,4.’’ 


The next instruction is 


GET B 


which must be preceded by a PRINT statement telling 
the user to make a bet: 

60 PRINT “BET’’; 

This is followed by: 

70 INPUT B. 


The next instruction, 


SPIN WHEEL 
STOP AT 
W 


has already been encoded as a subroutine beginning at 
line 200. To call this routine from the main program we 
add: 

80 GO SUB 200 

When the computer returns from the subroutine with 
values for W and for P, the player should be told the 
number at which the wheel stopped: 

90 PRINT “STOPPED AT’’ W 


200 
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The next element in the flow chart, 



is translated into BASIC using an IF-THEN statement. 
We write 

100 IF N = W THEN_ 

leaving a blank for the line number after THEN. If we 
take the NO exit from the diamond, we arrive at 


TAKE MONEY 
B 


At this point the player has lost B dollars and must be so 
informed by: 

110 PRINT “YOU LOSE $” B 
Then the amount he bet, B, must be subtracted from his 
bankroll, M. 

120 LET M = M - B 

Though not indicated in the flow chart, before sending 
the player back to try his luck in another game, we 
should tell him how much he has in his bankroll. 

130 PRINT “YOU NOW HAVE” M “DOLLARS.” 
Automatic replay is indicated in the flow chart by the 
number 1 in a circle at the end of the drop-down branch. 
This is encoded in BASIC as: 

140 GO TO 40 

Now for the right or YES exit from the diamond. The 
instruction is: 

PAYOFF 
P* B 


Here the player wins P times B dollars and must be so 
informed. 

150 PRINT “YOU WIN $” P*B 
Before going on to the next step in the program, recall 
the blank you left after the IF-THEN statement in line 
100. You now can fill that blank with the number 150. 
100 IF N = W THEN 150 

To continue, after telling the player he won, his bet, B, 
must be multiplied by the payoff factor and added to his 
bankroll, M. 

160 LET M = M + P*B 

And he should be told how much he has in the bank. 
170 PRINT “YOU NOW HAVE” M “DOL¬ 
LARS.” 

Just as at the end of the drop-down branch, the computer 
should be directed to replay the game automatically. 
180 GO TO 40 

The main program is now complete. Generally, when 
you build a program containing subroutines, a STOP 
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statement is required at the end of the main program to 
prevent the computer from running on into the sub¬ 
routine section. In this case, however, the main pro¬ 
gram cannot run on into the second section, because a 
GO TO 40 statement has been inserted at the end of each 
branch. 

Here is the main program as developed above. 


10 RANDOM 
20 LET M»100 

30 PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 
40 PRINT "PICK 1*2* 3* 4"; 

50 INPUT N 
60 PRINT "BET"1 
70 INPUT B 
80 GO SUB 200 
90 PRINT "STOPPED AT" W 
100 IF N*W THEN 150 
110 PRINT "YOU LOSE $" B 
120 LET M*M-B 

130 PRINT "YOU NOW HAVE" M "DOLLARS." 

140 GO TO 40 

150 PRINT "YOU WIN S" P*B 
160 LET M»M*P*B 

170 PRINT "YOU NOW HAVE" M "DOLLARS." 

130 GO TO 40 


To the above main program we now join the subroutine 
SPIN WHEEL STOP AT W. We also add a RANDOM 
statement and an END statement. The RANDOM 
statement is necessary to start RND(X), used in the 
subroutine, at a randomly selected place in the “random 
number list.” This is written: 

10 RANDOM 

Number the END statement 999 or some other large line 
number. This will allow us to add more subroutines later 
in the chapter. 


202 



Playing BIG WHEEL 


10 

20 

30 

40 


MAIN 

PROGRAM 


SPIN 

WHEEL 


50 

60 

70 

30 

90 

100 

110 

120 

130 

140 

150 

160 

170 

_180 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 


275 

999 


RANDOM BIG WHEEL/ELEMENTARY 

LET M-100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

PRINT "PICK L2/3#4 M I 
INPUT N 
PRINT "BET"! 

INPUT B 

GO SUB 200 *- ACTIVATE SPIN WHEEL 

PRINT "STOPPED AT" W 
IF N-W THEN 150 
PRINT "YOU LOSE $" B 
LET M-M-B 

PRINT "YOU NOV HAVE” M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN $" P*B 
LET M=M+P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET R-INTC 9*RND(X))♦1 

IF R<-3 THEN 265 

IF R<*6 THEN 250 

IF R<-8 THEN 235 

LET W-4 

LET P-8 

RETURN 

LET W-3 

LET P-3.5 

RETURN 

LET W-2 

LET P-2 

RETURN 

LET V-1 

LET P-2 

RETURN 

END 


We must now test the program. Ideally, you should 
test the program for both winning and losing on each of 
the four possible numbers, 1, 2, 3, and 4. In this case, 
however, I have only tested the program for winning 
and losing on 1. You should test the other six possible 
outcomes. 

YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1,2* 3#4? 1 
BET? 10 
STOPPED AT 3 

YOU LOSE S 10*- LOSE ON NUMBER 1 

YOU NOW HAVE 90 DOLLARS. 

PICK I,2,3,4? 1 
BET? 10 
STOPPED AT 3 

YOU LOSE $ 10 *- LOSE ON NUMBER 1 

YOU NOW HAVE 80 DOLLARS. 

PICK 1,2,3,4? 1 
BET? 10 
STOPPED AT I 

YOU WIN $ 20*-WIN ON NUMBER 1 

YOU NOW HAVE 100 DOLLARS. 

PICK 1,2,3,4? 
tC 
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Off-line: 

1. Design your own wheel with as many equal pie¬ 
shaped pieces as you wish. Number each section. 
Try not to have each different outcome occur with 
the same probability. That is, do not construct a 
four-section wheel and just number the sections 1, 
2, 3, and 4 respectively. 

2. Decide whether you want your game to be fair or 
biased and construct a payoff schedule for the dif¬ 
ferent bets. 

3. Draw (1) a flow chart for the main program of your 
Big Wheel game and (2) a flow chart for the SPIN 
WHEEL subroutine. 

4. Refer to your flow charts and write a program for 
your big wheel. Imitate the line numbering scheme 
and overall program organization that I followed in 
writing the program BIG WHEEL/ELE¬ 
MENTARY. Do not add instructions or any other 
personality at this time. These refinements will be 
added later. Keep your program simple. 

On-line: 

5. Load and run your Big Wheel program. Be sure to 
test it thoroughly. Save this program as YOUR BIG 
WHEEL for modification in subsequent sections. 


BIG WHEEL/ELEMENTARY 
FLOW CHART 


M = 100 


gH 



TAKE MONEY 
B 




5.3 “PLAY IT AGAIN, SAM?” 

At present, our program BIG WHEEL/ ELEMEN¬ 
TARY is set up for automatic replay. The game can only 
be terminated by typing CONTROL C. In YOU GUESS 
and COMPUTER GUESS, we had other ways to replay 
the game: 

1. Ask the User 

2. Flag 99 

3. How many Games? 

I’ll use Flag 99 to replay BIG WHEEL. 

Look at the elementary flow chart for BIG WHEEL. 


YES 

PAYOFF 


P * B 


h© 


To use 99 as the flag, tell the player at the beginning of 
the program that, if he wants to quit, he must type 99 
when the computer says “PICK 1,2,3,4.” This is ac¬ 
complished by inserting: 

15 PRINT “IF YOU WISH TO QUIT, TYPE 
99 AFTER PICK 1,2,3,4.” 
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Then test for the flag after the computer executes 


GET N 


which has been encoded as 50 INPUT N. To determine 
whether the player has typed in 99, we use this routine: 



This routine can be encoded and inserted in the overall 
program three ways: (1) as an integral part of the main 
program, (2) as a standard subroutine employing GO 
SUB and RETURN, and (3) as a short routine which the 
computer reaches and returns from by following two 
GO TO instructions. 

As part of the main program, it looks like this: 

50 INPUT N 

51 IF N = 99 THEN 53 

52 GO TO 60 

53 PRINT “HOPE YOU HAD FUN. 
COME BACK SOON.” 

54 STOP 

60 PRINT “BET”; 

As a subroutine employing GO SUB and RETURN, it 
looks like this: 

50 INPUT N 

51 GO SUB 300 
60 PRINT “BET”; 

300 IF N = 99 THEN 310 
305 RETURN 

310 PRINT “HOPE YOU HAD FUN. 

COME BACK SOON.” 

315 STOP 

As a short routine outside the main program, which the 
computer reaches via 51 GO TO 300 and returns from 
via 305 GO TO 60, it looks like this: 

50 INPUT N 

51 GO TO 300 

60 PRINT “BET”; 

300 IF N = 99 THEN 310 
305 GO TO 60 

310 PRINT “HOPE YOU HAD FUN. 
COME BACK SOON.” 

315 STOP 

I prefer the second alternative, the standard subroutine. 
Here is FLAG 99 as a subroutine in BIG WHEEL/ 
ELEMENTARY. 
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PROGRAM 


10 

15 

20 

30 

40 

50 

51 
60 
70 

MAIN 30 

PROGRAM 90 

100 
1 10 


120 

130 

140 


SPIN 

WHEEL 


FLAG 99 


150 

160 

170 

_180 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

_275 

300 

305 

310 

_ 315 

999 


RANDOM 

PRINT M IF YOU WISH TO QUIT* TYPE 99 AFTER PICK 1*2*3*4. 
LET M*100 

PRINT "YOU HAVE” M "DOLLARS TO PLAY WITH." 

PRINT "PICK 1*2*3*4"! 

INPUT N 

GO SUB 300 - ACTIVATE FLAG 99 

PRINT "BET"! 

INPUT B 

GO SUB 200 + -ACTIVATE SPIN WHEEL 

PRINT "STOPPED AT" W 
IF N*W THEN 150 
PRINT "YOU LOSE $" B 
LET M=M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN $" P*B 
LET M»M+P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET R»INT<9*RND<X>> + 1 

IF R<*3 THEN 265 

IF R<*6 THEN 250 

IF R<»8 THEN 235 

LET W«4 

LET P»8 

RETURN 

LET W*3 

LET P»3.5 

RETURN 

LET W»2 

LET P-2 

RETURN 

LET W*1 

LET P-2 

RETURN 

IF N-99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

STOP 

END 


OUTPUT IF YOU WISH TO QUIT* TYPE 99 AFTER PICK 1*2*3*4. 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1*2*3*47 2 

BET? 10 

STOPPED AT 3 

YOU LOSE S 10 

YOU NOW HAVE 90 DOLLARS. 

PICK 1*2*3*47 99 ◄- TEST FLAG 99 

HOPE YOU HAD FUN. COME BACK SOON. 


EXERCISE SET 5.3 


Off-line: 

1. The following flow chart outlines the logic of the 
replay option, Ask the User. 
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FLOWCHART 


Based on this flow chart, do the following: 

A) Code the flow chart as a subroutine which 
begins at line 300 in BIG WHEEL/ ELEMEN¬ 
TARY. 

B) Insert in the main program the statement GO 
SUB 300 to activate this subroutine. 

On-line: 

2. Take YOUR BIG WHEEL program, which you 
saved in exercise set 5.2, and add the replay option 
of your choice. Save this program for further mod¬ 
ification. 

5.4 NEVER BET MORE THAN YOU HAVE 

Not all games involve betting. In games of skill, such 
as football or tic-tac-toe, winning the game is generally 
satisfaction enough. Betting is often a characteristic of 
games of chance, however. To play a betting game, the 
user must start with a certain amount of money. You 
either let the user specify how much money he wants to 
draw from the “bank” (you may want to restrict the 
amount), or you tell him how much money he has. In the 
second case you can give the user a fixed amount, such 
as $ 100 or $ 1,000,000, or you can generate a number at 
random between two numbers to determine the amount 
of money he starts with. The game has more variety if 
you use the latter method, since the user starts with a 
different amount each time. In the present version of 
BIG WHEEL, the player starts with $100. Let’s modify 
the program to start the player with a random amount of 
money between $50 and $100 inclusive. 

Look at BIG WHEEL/FLAG 99. The program step to 
be changed is line 20, LET M = 100. The amount of 
money, 100, must be replaced with an expression which 
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uses RND(X) to generate a random amount of money 
between 50 and 100 dollars. RND(X), however, gener¬ 
ates numbers between zero and one. To get RND(X) to 
work in the right interval, 50 to 100, we first determine 
the number of whole numbers between 50 and 100, 
inclusive. There are 100 — 50 + 1, or 51 whole num¬ 
bers. RND(X) must therefore be multiplied by 51 to 
yield numbers from 0 to 51. 



The expression 51*RND(X) yields decimal numbers, 
however. To transform them into whole numbers use 
INT. Thus INT(51 *RND(X)) produces 


◄—•—•—•—•—•—•—•-•—•—•—•—•—•—► 

0 1 2 3 4 • • • 47 48 49 50 


Shift this set of numbers to the right, into the interval 50 
to 100, by adding 50 to the expression. Thus, 
INT (51 *RND(X)) + 50. 


50 51 52 53 54 • • • 97 98 99 100 

If you wish, you can now replace 20 LET M= 100 with 
20 LET M=INT(50*RND(X))+50 in BIG 
WHEEL/FLAG 99. Now let’s examine the player’s bet. 

It is not wise to let the user bet more than he has, or to 
let him bet a negative amount of money. The first 
constraint is obvious, but the second isn’t. You may 
already have discovered the following scheme for in¬ 
creasing the size of your bankroll when playing BIG 
WHEEL. Look again at the table which lists the ways 
yoD can win and lose on each number. 


NUMBER 

BET ON 

NUMBER WAYS 
TO WIN 

NUMBER WAYS 
TO LOSE 

1 

3 

6 

2 

3 

6 

3 

2 

7 

4 

1 

8 


On any given spin of the wheel, the most likely way to 
lose is to bet on the number 4. If I bet $1,000,000 on 
number 4, the chances are very good that I’ll lose a 
million. On the other hand, if I bet-$1,000,000 on 
number 4, when I lose, I “win,” because I gain 
$1,000,000 for my bankroll. The computer determines 
the size of my bankroll by executing LET 
M = M - B. When B = -1,000,000, the statement 
becomes LET M = M — (—1,000,000), which is, of 
course, the same as LET M = M + 1,000,000.1 add a 
cool million to my wad. To prevent a player from using 
this scheme to increase his bankroll illegally, the com¬ 
puter must test each bet to make sure it is not a negative 
number. 
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To make the game realistic, you may require the 
player to bet a minimum of one dollar as well as to bet in 
whole dollar amounts. After all, did you ever hear of 
anyone betting 3.17625 dollars? Here is a flow chart for 
the subroutine that rejects any bet that is: 

(1) more than his bankroll, 

(2) negative, 

(3) less than one dollar, or 

(4) not a whole dollar amount. 



BET OK 
FLOW CHART 


Look at the questions in the diamonds. The first three 
questions can be inserted in the program without change 
between IF and THEN. The fourth question, IS B A 
WHOLE DOLLAR AMOUNT? is coded in BASIC, 
using the INT operation. 

The question becomes, is INT(B) = B? It works this 
way: If B = 3.17625, the answer is “No,” because 
INT(3.17625) equals 3, not 3.17625. On the other 
hand, if B = 3, then the answer is “Yes,” because 
INT(3) equals 3. In short, if B is a whole number, the 
statement is true. When cast in BASIC it looks like this: 

IF INT(B) = B THEN_ 

The procedure for checking bets will be incorporated 
into BIG WHEEL as a subroutine. It is our third sub¬ 
routine and will begin at line 400 There are five exit 
points from the subroutine. At the ends of four of the 
branches, a GO TO command is used to transfer control 
back to 60 PRINT “BET”; At the end of the remaining 
fifth branch, a RETURN statement is inserted. This 
subroutine is added to BIG WHEEL/FLAG 99. To 
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BIG WHEEL/BET OK 
PROGRAM 


activate it, GO SUB 400 must be inserted in the main 
program after 70 INPUT B. 


15 

20 

30 

40 

50 

51 


MAIN 

PROGRAM 


SPIN 

WHEEL 


FLAG 99 


60 

70 

71 
80 
90 

100 

110 

120 

130 

140 

150 

160 

170 

_180 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

_275 

300 

305 

310 

_ 315 

400 

405 


410 

415 


BET OK 


420 

425 

430 

435 


440 


445 

450 

455 

_460 

999 


RANDOM 

PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1#2#3#4." 
LET M-100 

PRINT "YOU HAVE” M "DOLLARS TO PLAY WITH*" 

PRINT "PICK 1# 2# 3# 4"J 
INPUT N 

GO SUB 300 *- ACTIVATE FLAG 99 

PRINT "BET"I 
INPUT B 

GO SUB 400 < - ACTIVATE BET OK 

GO SUB 200 < -ACTIVATE SPIN WHEEL 

PRINT "STOPPED AT" W 
IF N*W THEN 150 
PRINT "YOU LOSE $" B 
LET M*M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

30 TO 40 

PRINT "YOU WIN $" P*B 
LET M*M+P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET R«INTC 9*RND(X)>♦1 

IF R<»3 THEN 265 

IF R<»6 THEN 250 

IF R<»3 THEN 235 

LET W-4 

LET P«8 

RETURN 

LET W»3 

LET P=»3.5 

RETURN 

LET W*2 

LET P«2 

RETURN 

LET W*1 

LET Pa2 

RETURN 

IF N=99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

STOP 

IF B>M THEN 455 
IF B<0 THEN 445 
IF B<1 THEN 435 
IF INT< B)*B THEN 430 

PRINT "WHAT•S THIS CENTS STUFF! BET WHOLE DOLLAR AMOUNTS 

GO TO 60 

RETURN 

PRINT "DON'T BE CHEAP. BET AT LEAST A DOLLAR." 

GO TO 60 

PRINT "STUPID! YOU CAN'T BET A NEGATIVE AMOUNT." 

GO TO 60 

PRINT "SMART HUH? YOU DON'T HAVE THAT MUCH MONEY." 

GO TO 60 
END 


M 


210 
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Below is a typical run of the program, one in which we 
test each of the four checks on the bet. 


IF YOU WISH TO QUIT, TYPE 99 AFTER PICK 1,2,3,4. 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1,2,3,4? 1 
B > M —► BET? 200 

SMART HUH? YOU DOM f T HAVE THAT MUCH MONEY. 

B<0— ►BET? -50 

STUPID! YOU CAN # T BET A NEGATIVE AMOUNT. 

B < 1 —► BET? 0 

DON • T BE CHEAP. BET AT LEAST A DOLLAR. 

INT(B) =B — ► BET? 1.234 

VHAT # S THIS CENTS STUFF! BET WHOLE DOLLAR AMOUNTS. 

BET? 10 

STOPPED AT 2 

YOU LOSE $ 10 

YOU NOW HAVE 90 DOLLARS. 

PICK 1,2,3,4? 99 

HOPE YOU HAD FUN. COME BACK SOON. 


EXERCISE SET 5.4 


Off-line: 

1. Does the order of the four questions used to check 
the bet make a difference? Play computer with the 
following flow chart and determine the output. If 
M = 100 and B = —1000, is the output correct? 



FLOW CHART 


2. Is there another sequence in which the questions can 
be arranged that will properly check the bet? 

On-line: 

3. Take the program YOUR BIG WHEEL saved in 
exercise set 5.3 and add two routines. The first 
routine either (a) gives the player an opportunity to 
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draw an amount from the bank, (b) gives him 
$1000, or (c) gives him an amount randomly 
selected. The second routine checks the bet to see 
that the player does not bet (a) more than his bank¬ 
roll or (b) a negative amount of money. You may 
also wish to create additional checks on the bet. 
Save this program for further modification. 

5.5 YOU JUST BUSTED MY BANK 

The BIG WHEEL game can end either of two ways: 
(1) the player loses all his money, or (2) he just decides 
to quit. He can quit by typing 99. If he loses all his 
money, we can either (1) terminate the game, or (2) give 
him a new bankroll and a chance to play again. In any 
case, whenever the player loses a bet, we should check 
the amount of money he has left. Of course, if he wins, 
there’s no need to check the amount of money he has 
left; he must have some. Here is a flow chart of the 
routine to be followed each time the player loses. It 
gives the player an opportunity to start the game over 
again with a new bankroll if he has lost all his money, 
BUSTED that • if m = O. 

FLOW CHART 



The new subroutine will begin at line 500. The string 
variable A$ is used to permit the player to answer YES 
or NO when asked “WOULD YOU LIKE TO PLAY 
AGAIN.’’ When added to BIG WHEEL/FLAG 99, the 
subroutine is activated by GO SUB 500 on line 131. 
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BIG WHEEUBUSTED 

-10 RANDOM 

15 PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1#2#3#4." 
20 LET M s 100 

30 PRINT "YOU HAVE” M "DOLLARS TO PLAY WITH." 

40 PRINT "PICK 1#2#3#4"; 

50 INPUT N 

5 1 GO SUB 300 + - ACTIVATE FLAG 99 

60 PRINT "BET"; 

70 INPUT B 

80 GO SUB 200 - ACTIVATE SPIN WHEEL 

^ IN 90 PRINT "STOPPED AT" W 
PROGRAM 100 j F N . w THEN 150 

110 PRINT "YOU LOSE S" B 
120 LET M-M-B 

130 PRINT "YOU NOW HAVE" M "DOLLARS." 

131 GO SUB 500 -*- ACTIVATE BUSTED 

140 GO TO 40 

150 PRINT "YOU WIN $" P*B 
160 LET M-M+P*B 

170 PRINT "YOU NOW HAVE" M "DOLLARS." 

_ 180 GO TO 40 
~200 LET R«INT<9*RND<X>)+l 
205 IF R<-3 THEN 265 
210 IF R<-6 THEN 250 
215 IF R<»8 THEN 235 
220 LET W-4 
225 LET P-8 
SPIN 230 RETURN 
WHEEL 235 LET W-3 

240 LET P-3.5 
245 RETURN 
250 LET W-2 
255 LET P-2 
260 RETURN 
265 LET W-l 
270 LET P-2 

_275 RETURN 

— 300 IF N-99 THEN 310 
305 RETURN 

FLAG 99 3 i 0 p ri nt "HOPE YOU HAD FUN. COME BACK SOON." 

_315 STOP 

“500 IF M-0 THEN 510 
505 RETURN 

510 PRINT "TOO BAD--YOU LOST ALL THE MONEY I GAVE YOU# BUT" 
515 PRINT "I'LL BE GENEROUS AND GIVE YOU ANOTHER CHANCE." 

520 PRINT "WOULD YOU LIKE TO PLAY AGAIN"; 

BUSTED 525 INPUT AS 

530 IF AS*"YES" THEN 20 
535 IF AS*"NO" THEN 550 
540 PRINT "ANSWER YES OR NO." 

545 GO TO 520 

550 PRINT "THANKS FOR PLAYING. BETTER LUCK NEXT TIME." 

_555 STOP 
999 END 

Look at line 555. The STOP command ends the sub¬ 
routine. Since the next line, 999, is an END statement, 
the STOP command may look unnecessary. You’re 
right. But, in the next section, we’re going to add 
another subroutine starting at line 600. 
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IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1#2#3#4. 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1 # 2# 3#4? 4 
BET? 100 
STOPPED AT 2 
YOU LOSE $ 100 

M = 0—►YOU NOW HAVE 0 DOLLARS. 

TOO BAD--YOU LOST ALL THE MONEY I GAVE YOU# BUT 
I*LL BE GENEROUS AND GIVE YOU ANOTHER CHANCE. 

YES OR NO —► W3ULD YOU LIKE TO PLAY AGAIN? PERHAPS 
ANSWER YES OR NO. 

YES —► VOULD YOU LIKE TO PLAY AGAIN? YES 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1 #2# 3#4? 4 
BET? 100 
STOPPED AT 2 
YOU LOSE $ 100 

M = o—►YOU NOW HAVE 0 DOLLARS. 

TOO BAD--YOU LOST ALL THE MONEY I GAVE YOU# BUT 
I*LL BE GENEROUS AND GIVE YOU ANOTHER CHANCE. 
NO— ► TOULD YOU LIKE TO PLAY AGAIN? NO 

THANKS FOR PLAYING. BETTER LUCK NEXT TIME. 


EXERCISE SET 5.5 


On-line: 

1. Take the program YOUR BIG WHEEL saved in 
exercise set 5.4 and add a routine for determining if 
the player has lost all his money. Once again, save 
the new program. 


VALID 1 
FLOW CHART 


5.6 VALIDATING INPUTS 



The instructions for BIG WHEEL tell the player to 
pick either 1, 2, 3, or 4. But perhaps he wants to foil 
your program, or see if you’ve accounted for all con¬ 
tingencies. We need a routine to check the user’s choice 
of number to determine if he has typed in a 1,2, 3, or 4. 
If not, we ask the player to choose again. Here is the 
flow chart. 
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This flow chart is encoded as a subroutine beginning at 
line 600. To activate it, GO SUB 600 should be inserted 
right after 50 INPUT N. But the next line after 50 is 51 
GO SUB 300 which checks for the flag. The check for 
the flag must come first. WeTl call for the new sub¬ 
routine in line 52. 


PROGRAM 


BIG WHEEUVALID 1 


MAIN 

PROGRAM 


SPIN 

WHEEL 


- 10 

15 

20 

30 

40 

50 

51 

52 
60 
70 
80 
90 

100 
1 10 
120 
130 
140 
150 
160 

_1 70 

13 0 
200 
205 
210 
215 
220 
225 
230 
235 


FLAG 99 


240 

245 

250 

255 

260 

265 

270 

_275 

300 
305 
310 
_315 
1 600 
605 


VALID 1 


610 

615 

620 

625 

_630 

999 


RAMDOM 

PRIMT "IF YOU VI SHI TO QUIT, TYPE 99 AFTER PICK 
LET M»100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 
PRIMT "PICK 1,2, 3#4", # 

INPUT N 

GO SUS 300 ◄- ACTIVATE FLAG 99 

GO SUB 600 *-ACTIVATE VALID 1 

PRINT "SET"! 

INPUT B 

GO SUB 200 *- ACTIVATE SPIN WHEEL 

PRINT "STOPPED AT" V 
IF M»W THEN 150 
PRINT "YOU LOSE S" B 
LET M*M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN $" P*B 
LET M«M+P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET RaINT(9*RND(X))+l 

IF R<*3 THEN 265 

IF R<*6 THEN 250 

IF R<*6 THEN 235 

LET W»4 

LET P*3 

RETURN 

LET W* 3 

LET P*3•5 

RETURN 

LET W*2 

LET Pa2 

RETURN 

LET W a 1 

LET Pa2 

RETURN 

IF Na99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

STOP 

IF Nal THEM 630 
IF N«2 THEN 630 
IF N*3 THEN 630 
IF N*4 THEN 630 

PRINT "FOLLOW DIRECTIONS DUMMY." 

GO TO 40 

RETURN 

END 


1,2,3,4." 
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OUTPUT IF YOU WISH TO QUIT# TYPE 99 AFTER PICK li2#3#4. 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

N = 7 —► PICK 1*2*3* 4? 7 

FOLLOW DIRECTIONS DUMMY. 

N=-2.5 —►PICK 1*2*3* A? -2.5 

FOLLOW DIRECTIONS DUMMY. 

N = 0 —►PICK 1*2* 3* 4? 0 

FOLLOW DIRECTIONS DUMMY. 

N = 1 —► PICK 1*2*3*47 1 

BET? 10 
STOPPED AT 3 
YOU LOSE $ 10 
YOU NOW HAVE 90 DOLLARS. 

N = 99 —►PICK 1*2*3*47 99 

MOPE YOU MAD FUN. COME BACK SOON. 

Now for a second method, which we’ll refer to as 
VALID 2, for validating inputs. This new method em¬ 
ploys the following IF-THEN statement: 

IF (N - 1) * (N - 2) * (N - 3) * (N - 4) = 0 THEN_ 

Suppose the player picks 1. If N = 1, the first factor 
N — 1 is zero, because 1 — 1=0. Regardless of the 
values of the other three factors the product of these four 
factors, 0 * (-1) * (-2) * (-3), must be zero. 
Likewise, if N is 2, 3, or 4, one of the other factors must 
be zero and the product is zero. Thus, the statement 
(N - 1)* (N - 2)* (N - 3)* (N - 4) = Oisalways 
true if N is 1,2, 3, or 4. Any other value of N will make 
the statement false. For example, if N = 8 then N — 1 
equals 7; N — 2 equals 6; N — 3 equals 5; and N — 4 
equals 4. The product is 7*6*5*4, which is not zero. 

To sum up, if the statement is true, we know he has 
picked a valid number. On the other hand if the state¬ 
ment is not true, we know he has not picked a valid 
number and we’ll ask him to pick again. In a flow chart, 
the routine looks like this: 


VALID 2 
FLOW CHART 



When encoded as a subroutine, it would look like this: 


VALID 2 

600 

IF 

(N- 

SUBROUTINE 

605 

PRINT 


610 

GO 

TO 


615 

RETURN 


1 )*(N-2)*(N-3)*(N-4)=0 THEN 615 
'•FOLLOW DIRECTIONS DUMMY.•• 

40 
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The foregoing method, VALID 2, is satisfactory 
when the player has only four numbers to choose from. 

If the BIG WHEEL had 20 numbers to choose from, 
however, the required statement would look like this: 

IF (N - 1)*(N - 2)*(N - 3)*(N - 4)*(N - 5)*(N - 6)*(N - 7)*(N - 8)* . . . 
*(N - 20) = 0 THEN_ 

That’s much too cumbersome. There must be a shorter 
way. There is! To illustrate the third alternative, which 
we’ll call VALID 3, I’ll use the original BIG WHEEL 
with four valid numbers. VALID 3 requires two IF- 
THEN statements. Here is the first: 

IF(N - 1)*(N - 4) < = 0 THEN_ 

Suppose the player picks the number 1. If N = 1, then 
N — 1 is 0 and N — 4 is —3. The resultant product, 

0*(-3), equals zero and the statement 
(N — 1)*(N — 4) < = 0 is true. If the player picks the 
number 4, the product will also be zero. If N is 2 or 3, 
the product will be a negative number, and again the 
statement is true. 

So much for the valid numbers, 1,2,3, and 4. If the 
player picks 0, N — 1 will be negative and N - 4 will 
be negative. The resultant product is positive, and the 
statement (N - 1)*(N — 4) < = 0 is false. If the 
player picks a number greater than four, N - 1 and 
N - 4 will both be positive. Again the resultant product 
is positive, and the statement (N - 1)*(N — 4) < = 0 
is false. In short, if N is a number between 1 and 4 
inclusive, (N - 1)*(N - 4) < = 0 is true. 

Unfortunately, 1,2, 3, or 4 are not the only numbers 
between 1 and 4. Suppose the player types in 2.5. This 
number also makes the statement true. We need another 
test to determine if N is a whole number. This can be 
done with the statement. 

IFINT(N) = NTHEN_ 

If N is a whole number, INT(N) = N is true. If N is not 
a whole number, then the statement is false. Thus the 
third method consists of two tests on N. The first deter¬ 
mines if N is between 1 and 4 inclusive and the second 
determines if N is a whole number. If N passes both 
these tests, then it must be 1, 2, 3, or 4. It can’t be 
anything else. The flow chart for VALID 3, the third 
method of validating the player’s number, is: 



VALID 3 
FLOW CHART 
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VALID 3 
SUBROUTINE 


218 


Here is the routine encoded as a subroutine beginning at 
line 600. 

600 IF <N-1>*<N-4X»0 TrfEN 615 

605 PRINT "FOLLOW DIRECTIONS DUMM*." 

610 GO TO 40 

615 IF INTCNXN TrfEN 625 
620 GO TO 605 
625 RETURN 

■MHHMHMM EXERCISE SET 5.6 ■■■■■■■ 

On-line: 

1. Take the program YOUR BIG WHEEL saved in 
exercise set 5.5 and add the routine of your choice to 
validate the user’s number. Save this program. 

5.7 COMPUTER PERSONALITY 

Now that YOUR BIG WHEEL program is essentially 
complete, let’s have some fun. You can make your 
program much more entertaining for the player by 
adding some personality to it. Here are several things 
you can do. 

1. Tell the player the name of the game. Insert: 

12 PRINT “PLAYING BIG WHEEL’’ 

2. Give the player the feeling that a large wheel is 
being spun. Before you ask him to pick his number, 
insert: 

35 PRINT “WHEEL IS SPINNING’’ 

3. Replace 90 PRINT “STOPPED AT’’ W with 

90 PRINT “WHEEL STOPPED AT’’ W 

4. Ask the player for his name at the beginning of the 
program. 

16 PRINT “PLEASE TELL ME YOUR 
NAME’’; 

17 INPUT N$ 

The string variable N$ holds a place for the player’s 
name. On my computer, the string cannot contain 
more than six characters. 

5. When the player types 99, use his name in the 
sign-off message. Replace 

310 PRINT “HOPE YOU HAD FUN. 
COME BACK SOON.’’ 

with 

310 PRINT “HOPE YOU HAD FUN ”N$ 

“ COME BACK SOON.’’ 

6. Cheer the winner with a peal of bells. After 150 
PRINT “YOU WIN $’’ P*B, insert line 

151 GO SUB 350. 

At 350 (the FLAG 99 subroutine only occupies lines 
300-315), insert a subroutine which, when acti¬ 
vated, rings the bell five times. On my computer I 
can ring the bell once by writing PRINT 
CHR$(135). To ring the bell five times I use a loop, 
350 FOR C = 1 TO 5 
355 PRINT CHR$(135); 

360 NEXT C 
365 RETURN 
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The semicolon in line 355 prevents the output page 
from advancing each time the bell rings. 

These are just some of the things you can do to give 
your program personality. Undoubtedly you can think 
of others. Here is BIG WHEEL/FLAG 99 with these 
features. 


PROGRAM 


BIG WHEEL/PERSONALITY 


MAIN 

PROGRAM 


SPIN 

WHEEL 


FLAG 99 


RING BELL 


“10 
12 

15 

16 
17 
20 
30 
35 
40 

50 

51 
60 
70 
80 
90 

100 
110 
120 
130 
140 

150 

151 
160 
170 
130 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 

I_275 

300 
305 
310 
315 
350 
355 
360 

I_365 

999 


WHEEL"4- 

TO QUIT, TYPE 99 
ME YOUR NAME" 4- 


RANDOM 

PRINT "PLAYING BIG 
PRINT "IF YOU WISH 
PRINT "PLEASE TELL 

INPUT N$ 4- 

LET M*100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH 

PRINT "WHEEL IS SPINNING"4- 

PRINT "PICK 1,2,3,4"; 

INPUT N 

GO SUB 300 4- 

PRINT "BET"! 

INPUT B 

GO SUB 200 4- 

PRINT "WHEEL STOPPED AT" W 4—- 

IF N=*W THEN 150 
PRINT "YOU LOSE $" B 
LET M*M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN $" P*B 

GO SUB 350 4- 

LET M»M+P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET R*INT(9*RND( X))♦1 

IF R<»3 THEN 265 

IF R<»6 THEN 250 

IF R<»8 THEN 235 

LET W*4 

LET P»3 

RETURN 

LET W«3 

LET P*3.5 

RETURN 

LET W*2 

LET P*2 

RETURN 

LET W*1 

LET P=*2 

RETURN 

IF N=99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN " NS 
STOP 

FOR C*1 TO 5 
PRINT CHR»<135)1 
NEXT C 
RETURN 
END 


- TITLE 

AFTER PICK 1,2,3,4. 

| — PLAYER’S NAME 


DESCRIPTION 


ACTIVATE FLAG 99 


ACTIVATE SPIN WHEEL 
DESCRIPTION 


ACTIVATE RING BELL 


COME BACK SOON< 


SIGN OFF 
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OUTPUT PLAYING BIG WHEEL 

IF YOU WISH TO QUIT# TYPE 99 AFTER PICK l >2# 3# 4. 
PLEASE TELL ME YOUR NAME? BOBBY 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

VHEEL IS SPINNING 
PICK 1 * 2# 3* 4? 1 
BET? 5 

VHEEL STOPPED AT 1 
YOU WIN $ 10 

YOU NOW HAVE 110 DOLLARS. 

PICK 1 * 2# 3# 4? 99 

HOPE YOU HAD FUN BOBBY. COME BACK SOON. 


If you think you’re a wit, you can have the computer 
make a funny remark whenever the player loses. For the 
sake of variety, you can make up five different remarks, 
then, using the random number generator, instruct the 
computer to pick one of the remarks at random each 
time the player loses. This new remark will occur in the 

output after the statement YOU LOSE $_, in which 

the blank represents the wager. Here’s the scheme, 
using a set of remarks I thought up. 


LOSER 
FLOW CHART 


Type: “THAT’S TOO BAD.’’ if 1 is generated; 
type: “BETTER LUCK NEXT TIME.’’ if 2 is gener¬ 
ated; 

type: “I LOVE YOUR MONEY.’’ if 3 is generated; 



PRINT “YOU LOSE $’’ B. 
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PROGRAM 


BIG WHEEL/LOSER 


MAIN 

PROGRAM 


SPIN 

WHEEL 


FLAG 99 


LOSER 


-10 

15 

20 

30 

40 

50 

51 
60 
70 
30 
90 

100 
110 
1 1 1 
120 
130 
140 
150 
160 
170 

_130 

200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
I 260 
265 
270 

_275 

300 

305 

310 

_315 

700 

705 

710 

715 

720 

725 

730 

735 


740 


745 

750 

755 

760 

765 

_770 

999 


RANDOM 

PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1#2#3#4." 
LET M*100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

PRINT "PICK 1#2#3#4"; 

INPUT N 

GO SUB 300 < - ACTIVATE FLAG 99 

PRINT "SET"; 

INPUT B 

GO SUB 200 < - ACTIVATE SPIN WHEEL 

PRINT "STOPPED AT" W 
IF N*V THEN 150 
PRINT "YOU LOSE $" B 

GO SUB 700 + -ACTIVATE LOSER 

LET M*M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN S" P*B 
LET M*M+P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET R*INT(9*RND(X))♦1 

IF R<*3 THEN 265 

IF R<«6 THEN 250 

IF R<*8 THEN 235 

LET W»4 

LET P*8 

RETURN 

LET W*3 

LET P»3.5 

RETURN 

LET V*2 

LET P»2 

RETURN 

LET W*1 

LET P*2 

RETURN 

IF N=99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

STOP 

LET R»INT(5*RNDCX>>+l 
IF R=1 THEN 765 
IF R*2 THEN 755 
IF R»3 THEN 745 
IF R»4 THEN 735 
PRINT "WHAT BAD LUCK." 

RETURN 

PRINT "YOU BLEW IT." 

RETURN 

PRINT "I LOVE YOUR MONEY." 

RETURN 

PRINT "BETTER LUCK NEXT TIME." 

RETURN 

PRINT "THAT # S TOO BAD." 

RETURN 

END 


221 



Fun And Games With The Computer 


Here is a typical run: 

OUTPUT IF YOU VISH TO QUIT, TYPE 99 AFTER PICK 1,2,3,4. 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1,2,3*4? 2 
BET? 10 
STOPPED AT 4 
YOU LOSE S 10 

MESSAGE 2—►BETTER LUCK NEXT TINE. 

YOU NOW HAVE 90 DOLLARS. 

PICK 1,2,3,4? 4 
BET? 10 
STOPPED AT 1 
YOU LOSE S 10 
MESSAGE 1—►THAT* S TOO BAD. 

YOU NOW HAVE 30 DOLLARS. 

PICK 1,2,3,4? 4 
BET? 10 
STOPPED AT 2 
YOU LOSE S 10 
MESSAGE 1 —►THAT'S TOO BAD. 

YOU NOW HAVE 70 DOLLARS. 

PICK 1,2,3,4? 99 

HOPE YOU HAD FUN. CONE BACK SOON. 

Look at the loser’s subroutine in BIG WHEEL/LOSER. 

LOSER 700 LET R*INTC5*RND<X>)+1 

SUBROUTINE 705 IF R*1 THEN 765 

710 IF R*2 THEN 755 

715 IF R*3 THEN 745 

720 IF R=4 THEN 735 

725 PRINT "WHAT BAD LUCK." 

730 RETURN 

735 PRINT "YOU BLEW IT." 

740 RETURN 

745 PRINT "I LOVE YOUR NONEY." 

750 RETURN 

755 PRINT "BETTER LUCK NEXT TINE." 

760 RETURN 

765 PRINT "THAT'S TOO BAD." 

770 RETURN 

In line 700, R is assigned one of the whole numbers 1,2, 
3, 4, or 5. Four IF-THEN statements are required to 
determine the value of R. If R is 5, the computer falls 
through the four IF-THEN statements to line 725. You 
can save several steps in writing the loser’s subroutine if 
your version of BASIC has the multiple branch state¬ 
ment ON_GO TO. Then the four If-THEN state¬ 

ments can be replaced by the one statement: 

ON R GO TO 765, 755, 745, 735, 725. 
The new statement works this way. First of all, R must 
be a whole number. Then, if R is the number 1, the 
computer looks at the first line number after the GO TO. 
In this case the number is 765. The computer branches 
to line 765 and executes the instructions beginning at 
that line. If R is the number 2, the computer looks at the 
second line number after the GO TO. In this case the 
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number is 755. The computer branches to line 755. As 
long as R is one of the whole numbers 1, 2, 3, 4, or 5, 
the computer knows where to go. Here is the loser’s sub¬ 
routine using the multiple branch statement. 

700 LET R=*INT<5*RND<X>> + 1 

705 ON R GO TO 765*755*745#735,725 

725 PRINT "WRAT BAD LUCK." 

730 RETURN 

735 PRINT "YOU BLEW IT#" 

740 RETURN 

745 PRINT "I LOVE YOUR MONEY#" 

750 RETURN 

755 PRINT "BETTER LUCK NEXT TIME#" 

760 RETURN 

765 PRINT "THAT•S TOO BAD." 

770 RETURN 


EXERCISE SET 5.7 


On-line: 

1. Take the program YOUR BIG WHEEL saved in 
exercise set 5.6 and add two subroutines, one which 
makes a variety of remarks chiding a loser, and the 
other a variety of remarks complimenting a winner. 
Start the winner’s subroutine at line 800. Add any 
other personality you wish and save this new pro¬ 
gram. 


5.8 LAYOUT 

Your games will be more fun if the output is well 
organized and easy to read. Setting off and indenting 
portions of the output will make your program look 
much more polished. Here are some things you can do 
to improve layout. 

1. At present the title PLAYING BIG WHEEL appears 
at the left margin of the output. It would look more 
like a title if it appeared in the middle of the page. 
The title consists of 17 characters, including blanks. 
Since there are 72 printing spaces across the page, 
the title can be centered by leaving 27 or 28 blanks 
on either side. Let’s count off 27 blanks from the left 
margin, using the TAB command. Replace line 12 
with 

12 PRINT TAB(27); “PLAYING BIG 
WHEEL” 

2. After the title is printed, skip several lines to set the 
title off from the rest of the output. To do this, add 
blank PRINT statements. 

13 PRINT 

14 PRINT 

In fact, you can use blank PRINT statements to set 
off any lines you want to have stand out from the rest 
of the text. 

3. Two high points of the game occur when the wheel 
is spun and then when it stops on a number. To 
dramatize these events replace 35 PRINT “WHEEL 

15 SPINNING” with 

35 PRINT “-WHEEL IS SPINNING” 


LOSER/ON-GO TO 
SUBROUTINE 
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and replace 80 PRINT “WHEEL STOPPED AT” 
W with 

90 PRINT "-WHEEL STOPPED AT” W. 

Don’t get carried away, however. If you print out on a 
Teletype, keep in mind that it is a very slow and noisy 
printer. Don’t ask it to type out any more characters or 
blanks than necessary, or the player will soon lose 
interest in your game. 

Here’s my BIG WHEEL in which I’ve made the 
above changes to improve format. I’ve also inserted 
BIG WHEEL/LAYOUT blank PRINT statements to separate successive games. 


MAIN 

PROGRAM 


SPIN 

WHEEL 


FLAG 99 


— 10 
12 

13 

14 

15 

16 
17 
20 

30 

31 

32 
35 
40 

50 

51 
60 
70 
30 
90 

100 
110 
120 
130 
140 
150 
160 
170 
.180 
"200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
_275 
"300 
305 
310 
_31 5 
999 


RANDOM 

PRINT TABC27)I"PLAYING BIG WHEEL" 

PRINT- 

PRINT- 


TITLE 


SKIP LINES 


SKIP LINES 


PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1#2#3*4. 
PRI NT- 
PRINT- 
LET M=100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

PRINT- 
PRINT- 


1- SKIP LINES 


PRINT "-WHEEL IS SPINNING" ^- 

PRINT "PICK 1#2#3#4"; 

INPUT N 
GO SUB 300 
PRINT "BET"; 

INPUT B 
GO SUB 200 

PRINT "-WHEEL STOPPED AT" W^- 

IF N*W THEN 150 
PRINT "YOU LOSE $" B 
LET M»M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 
GO TO 31 < - 


DRAMATIZE 


DRAMATIZE 


SPACING BETWEEN GAMES 


PRINT "YOU WIN S" P*B 
LET M-M+ P*B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 31 ◄- 

LET R*INT< 9*RND< X)>♦1 

IF R<*3 THEN 265 

IF R<=6 THEN 250 

IF R<»3 THEN 235 

LET V»4 

LET P=8 

RETURN 

LET W= 3 

LET P»3.5 

RETURN 

LET V*2 

LET P*2 

RETURN 

LET V*1 

LET P»2 

RETURN 

IF Na99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN. COME BACK SOON.' 

STOP 

END 


SPACING BETWEEN GAMES 
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Here is a typical run. 


PLAYING BIG WHEEL 


IF YOU WISH TO QUIT/ TYPE 99 AFTER PICK 1/2/3/4. 

YOU HAVE 100 DOLLARS TO PLAY WITH. 


-WHEEL IS SPINNING 

PICK 1/2/3/4? 3 
BET? 10 

-WHEEL STOPPED AT 3 

YOU WIN $ 35 

YOU NOW HAVE 135 DOLLARS. 


--WHEEL IS SPINNING 
PICK 1/2/3/4? 2 
BET? 20 

--WHEEL STOPPED AT 1 

YOU LOSE $ 20 

YOU NOW HAVE 115 DOLLARS. 


--WHEEL IS SPINNING 
PICK 1/2/3/ 4? 99 

HOPE YOU HAD FUN. COME BACK SOON. 


Look at the output. Which lines in the program BIG 
WHEEL/LAYOUT generated the blank lines between 
the first and second game? 

EXERCISE SET 5.8 

On-line: 

1. Take the program YOUR BIG WHEEL saved in 
exercise set 5.7 and add program steps to improve 
the layout. Save this program. 

5.9 INSTRUCTIONS 

Now to add a set of instructions to the player. That’s 
about the last step in writing a program. If you insert the 
instructions while you are still developing the program 
you yourself will have to cope with them every time you 
run it. 

When writing instructions, try to be as thorough and 
as concise as possible. First, decide how much the 
player probably knows about the game. For instance, if 
you’re playing a common game like tic-tac-toe, you 
might well assume that the player knows all the rules; 
you only need to tell him how your “board” is num¬ 
bered. 

I will place my instructions for BIG WHEEL in a 
subroutine beginning at line 900. To activate this sub¬ 
routine I will replace 15 PRINT “WHENEVER YOU 
WANT TO QUIT TYPE 99” with 
15 GO SUB 900 
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At line 900 I will first ask if the player wants instruc¬ 
tions. You should give him this option. If he’s played 
the game many times before, all he wants to do is to start 
playing as soon as possible. Don’t delay his start. Here 
is a flow chart of the instruction subroutine. 


YES 


PRINT 

INSTRUCTIONS 


RETURN 


A $ 


IS 

= “NO” 


YES 


RETURN 


NO 


ANSWER 
YES OR NO 



Here is BIG WHEEL/FLAG 99 program in which the 
instruction subroutine begins at line 900. Layout and 
personality are important considerations in this routine. 


BIG WHEEL/INSTRUCTION 


MAIN PROGRAM 


SPIN WHEEL 


FLAG 99 


10 

RANDOM 


15 

GO SUB 9 00 <«- 

- ACTIVATE INSTRUCTIONS 

2 f 

LET M*100 , 


30 

PRINT "YOU RAVE" M "DOLLARS TO PLAIT VITR." 

40 

PRINT "PICK 1/2.3.4"! 


5-0 

INPUT N 


51 

GO SUB 300 ◄- 

- ACTIVATE FLAG 99 

60 

PRINT "BET"J 


70 

£NPUT B 


30 

GO SUB 200 •* - 

- ACTIVATE SPIN WHEEL 

90 

PRINT •• STOPPED AT" W 


100 

IF N»W THEN 150 


1 10 

PRINT "YOU LOSE S" B 


120 

LET M-M-B 


130 

PRINT "YOU NOW HAVE" M 

"DOLLARS." 

140 

GO TO 40 


150 

PRINT "YOU WIN S" P*B 


160 

LET M*M+P*B 


170 

PRINT "YOU NOW HAVE" M 

"DOLLARS." 

_180 

T30 TO 40 


200 

LET R*INT(9* RNDC X))♦1 


205 

IF R<*3 THEN 265 


210 

IF R<*6 THEN 250 


215 

IF R<s3 THEN 235 


220 

LET W»4 


225 

LET P«8 


230 

RETURN 


235 

LET V*3 


240 

LET P-3.5 


24B 

RETURN 


250 

LET W«2 


255 

LET P*2 


260 

RETURN 


265 

LET W*t 


270 

LET P*2 


_275 

RETURN 


300 

IF N*99 THEN 310 


305 

RETURN 


310 

PRINT "HOPE YOU HAD FUN 

• COME BACK SOON." 

_315 

STOP 
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~~ 900 

905 

906 

907 
910 
915 
920 
925 
930 

935 

936 

937 
9 38 
9 39 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 
_999 


PRINT 

INPUT 

PRINT 

PRINT 

IF AS* 

IF AS 

PRINT 

GO TO 

RETURN 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

RETURN 

END 


M D0 YOU WANT INSTRUGTIONS" J 
AS 


M N0 M THEN 930 
"YES" THEN 935 
••ANSWER YES OR NO*** 
900 


DESCRIPTION 
OF WHEEL 


'•IMAGINE A LARGE CARNIVAL WHEEL# 6 FEET IN DIAMETER#' 9 
••DIVIDED INTO 9 EQUAL PIE-SHAPED PIECES. THREE SECTIONS" 
'•ARE NUMBERED 1# THREE SECTIONS ARE NUMBERED 2# TWO” 
••SECTIONS ARE NUMBERED 3# AND ONE SECTION IS NUMBERED 4.'Ll 


••THE WHEEL WULL BE SPUN AND THEN YOU WILL HAVE AN' 
'•OPPORTUNITY TO BET ON ONE OF THE FOUR NUMBERS** 
••BEFORE THE WHEEL COMES TO REST." 


PLAY OF 
GAME 


"AT THE START OF EACH GAME# YOU WILL RECEIVE" 
"A CERTAIN AMOUNT OF MONEY TO BET IN WHOLE" 
"DOLLAR AMOUNTS." 


> 


BANKROLL 


•SECTION NUMBERS PAYOFF AS FOLLOWS! 
•l PATS 2 TIMES YOUR BET.” 

•2 PATS 2 TIMES TOUR BET." 

•3 PATS 3.5 TIMES YOUR BET." 

•4 PATS 3 TIMES TOUR BET." 


PAYOFF TABLE 


"WHEN YOU WANT TO OUITIIF YOU DON'T GO BROKE FIRST)" 
"TYPE 99 WHEN ASKED TO PICK 1.2#3.4." 


"LET'S GO." 


Zb 


QUIT 
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Here is a typical run. 


DO YOU WANT INSTRUCTIONS? YES 


IMAGINE A LARGE CARNIVAL WHEEL* 6 FEET IN DIAMETER* 
DIVIDED INTO 9 EQUAL PIE-SHAPED PIECES* THREE SECTIONS 
ARE NUMBERED 1* THREE SECTIONS ARE NUMBERED 2* TWO 
9ECTI0NS ARE NUMBERED 3* AND ONE SECTION IS NUMBERED 4* 

THE WHEEL WILL BE SPUN AND THEN YOU WILL HAVE AN 
OPPORTUNITY TO BET ON ONE OF THE FOUR NUMBERS 
BEFORE THE WHEEL COMES TO REST. 

AT THE START OF EACH GAME* YOU WILL RECEIVE 
A CERTAIN AMOUNT OF MONEY TO BET IN WHOLE 
DOLLAR AMOUNTS. 

SECTION NUMBERS PAYOFF AS FOLLOWS* 

1 PAYS 2 TIMES YOUR BET. 

2 PAYS 2 TIMES YOUR BET. 

3 PAYS 3.5 TIMES YOUR BET. 

4 PAYS 8 TIMES YOUR BET. 

VHEN YOU WANT TO QUITCIF YOU DON'T GO BROKE FIRST) 

TYPE 99 WHEN ASKED TO PICK 1*2* 3* 4. 


LET'S GO. 

YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 1*2* 3* 4? 1 

BET? 10 

STOPPED AT 2 

YOU LOSE S 10 

YOU NOW HAVE 90 DOLLARS. 

PICK 1*2* 3*4? 99 

HOPE YOU HAD FUN. COME BACK SOON. 


EXERCISE SET 5.9 


On-line: 

1. Take the program YOUR BIG WHEEL saved in 
exercise set 5.8 and add a routine giving instructions 
to the user. Save this program for further modifica¬ 
tion. 


5.10 IS BIG WHEEL BUGLESS? 

Are there any bugs in YOUR BIG WHEEL program? 
By now you know that it is possible to write a program 
which you think is flawless, but which in fact is not. 
Sometimes you discover flaws on the first test run. 
Other times flaws are not discovered until much later. In 
fact you can never be sure that a program is flawless! 
You only become more confident that your program is 
bugless when it operates correctly many times under a 
variety of conditions. Thus, to insure that your program 
is near perfect, have a number of people play your game 
and ask them to let you know if they encounter any 
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problems. That’s how I discovered a flaw in my BIG 
WHEEL program. A student playing my game was 
confronted with the following situation. 

The student bet five dollars on the number 3 and won. 
The payoff factor for number 3 is 3.5. He won 3.5 times 
5, or $ 17.50. Adding $ 17.50 to his bankroll of $50 gave 
him $67.50. He then bet $67 on number 2 and lost, 
cutting his bankroll to a mere 50 cents. He bet his 50 
cents on number 1. The computer replied DON’T BE 
CHEAP. BET AT LEAST A DOLLAR. He tried to bet 
a dollar and the computer replied SMART HUH? YOU 
DON’T HAVE THAT MUCH MONEY. No matter 
what he tried to bet, he was rebuffed. He couldn’t even 
type 99 to quit! The only way out was CONTROL C. 
(Gloom) His 50c bet would not pass any of the checks I 
built into the program. What can I do to stamp out this 
bug? 

The problem lies with the payoff factor of 3.5. If the 
player bets an odd number of dollars on number 3 and 
wins, his bankroll will always turn out to be a whole 
number of dollars, plus 50 cents. If he ever loses all his 
whole dollars, he’s stuck with 50 cents, but he can’t bet 
less than a dollar. 

One solution is to redesign the big wheel, numbering 
the sections so that all payoff factors are whole num¬ 
bers. Another solution is to remove the constraint that 
the player must bet at least a dollar. Doing this however, 
would encourage strange bets such as .0000163 dollars. 
A third alternative is to make sure the player’s bankroll 
is always a whole number of dollars after he wins. If for 
example his bankroll is at some point $67.50, the com¬ 
puter will round off the amount to $67 by taking the 50c 
as a “tip.” 

To do this, we’ll add a short subroutine to the pro¬ 
gram. The proper place to insert this “patch” is at the 
point where the player wins, and the computer calcu¬ 
lates his new bankroll. This occurs between lines 150 
and 180, shown here: 

150 PRINT “YOU WIN$” P*B 
160 LET M = M + P*B 
170 PRINT “YOU NOW HAVE” M 
“DOLLARS.” 

180 GO TO 40 

In line 150 the player is told that he won and the amount 
of his winnings. In line 160 the player’s winnings are 
added to his bankroll. At this point we want the compu¬ 
ter to determine if the player’s bankroll is a whole 
number of dollars. So we insert at line 161a GO SUB 
statement that directs the computer to the “patch. ’ ’ But 
where can I fit the “patch?” I’ve used up all the num¬ 
bers I usually use to start subroutines, that is 200, 300, 
. . ., 900. I don’t want to go to 1000, and there is a nice 
hole starting at 650. So, starting at line 650, I’ll instruct 
the computer to check the new bankroll, M. If the 
bankroll is a whole number of dollars, the computer can 


229 



Fun And Games With The Computer 


50 CENT TIP FLOW CHART 



return to the main program. If the bankroll is not a whole 
number of dollars, I instruct it to type out the message: 
I’LL KEEP THE 50 CENTS. THANKS FOR THE TIP, 
and then round his bankroll down to the nearest whole 
dollar. Here is a flow chart of the subroutine at left. 


To encode this subroutine I use the INT command to test 
for a whole number of dollars, as well as to round M 
down. Here is BIG WHEEL/FLAG 99 with the new 
subroutine. 

BIG WHEEL/50 CENT TIP 


—10 
15 
20 


MAIN 

PROGRAM 


30 

40 

50 

51 
60 
70 
80 
90 

100 

110 

120 

130 

140 

150 

160 

161 

170 

__130 

r~200 


205 
210 
215 
220 
225 
230 
SPIN 235 
WHEEL 240 
245 


FLAG 99 


50 CENT 
TIP 

230 


250 

255 

260 

265 

270 

_275 

"^300 

305 

310 

_315 

“650 

655 

660 

_665 

999 


RANDOM 

PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1#2#3#4 
LET M-100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

PRINT "PICK 1* 2* 3*4"! 

INPUT N 

GO SUB 300 < - ACTIVATE 

PRINT "BET"; 

INPUT B 

GO SUB 200 - ACTIVATE SPIN WHEEL 

PRINT "STOPPED AT" W 
IF N»W THEN 150 
PRINT "YOU LOSE S" B 
LET M*M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN S" P*B 
LET M*M+P*B 

GO SUB 650 + - ACTIVATE 50 CENT TIP 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

LET R»INT<9*RND<X)>+1 

IF R<»3 THEN 265 

IF R<»6 THEN 250 

IF R<*3 THEN 235 

LET W-4 

LET P*8 

RETURN 

LET W-3 

LET P-3.5 

RETURN 

LET W-2 

LET P*2 

RETURN 

LET W*1 

LET P-2 

RETURN 

IF N-99 THEN 310 
RETURN 

PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

STOP 

IF INTCM)THEN 665 

PRINT "I f LL KEEP THE 50 CENTS. THANKS FOR THE TIP." 

LET M-INT(M) 

RETURN 

END 


•• 







Playing BIG WHEEL 


To test this subroutine, I want to bet an odd number of 
dollars on number 3 and then have the wheel stop on that 
number. The wheel will stop on 3 if, in the spin-the- 
wheel subroutine that begins at line 200, the value of R 
is 8 or 9. Rather than wait for the random number 


generator, acting through INT(9*RND(X)) + 1, to 
produce 8 or 9, I’ll generate a suitable value of R myself 
by replacing 200 LET R = INT(9*RND(X)) + 1 with 
200 PRINT “SPECIFY R”; and adding 201 INPUT R. 

Now, when the program is running, the computer will 
stop at line 201 and let me specify a value for R. I will 
specify 8 or 9. Here is BIG WHEEL/FLAG 99 with 
these two changes in lines 200 and 201. 

BIG WHEEL/50 CENT TIP/TEST 


15 

20 

30 

40 

50 

51 


MAIN 

PROGRAM 


60 

70 

30 

90 

100 

110 

120 

130 


SPIN 

WHEEL 


FLAG 99 


50 CENT 
TIP 


140 
150 
160 
161 
170 
_ 130 
“200 
201 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
__2.75 
“300 
305 
310 
-315 
“650 
655 
660 
_665 
999 


RANDOM 

PRINT "IF YOU WISH TO QUIT, TYPE 99 AFTER PICK 1,2,3,4»" 
LET M«100 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

PRINT "PICK 1,2,3,4"; 

INPUT N 
GO SUB 300 
PRINT "BET"; 

INPUT B 
GO SUB 200 

PRINT "STOPPED AT" W 
IF N»W THEN 150 
PRINT "YOU LOSE $" B 


LET M-M-B 

PRINT "YOU NOW HAVE" M 
GO TO 40 

PRINT "YOU WIN $" P*B 
LET M»M+P*B 

GO SUB 650 < - 

PRINT "YOU NOW HAVE" M 
GO TO 40 

PRINT "SPECIFY R"!—. 

INPUT R-i"* - 

IF R<*3 THEN 265 

IF R<*6 THEN 250 

IF R<*8 THEN 235 

LET W*4 

LET P-3 

RETURN 

LET W-3 

LET P-3.5 

RETURN 

LET W-2 

LET P-2 

RETURN 


"DOLLARS." 


- ACTIVATE 50 CENT TIP 

"DOLLARS." 

- SPECIFY R 


LET W-l 
LET P-2 
RETURN 

IF N-99 THEN 310 
RETURN 


PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

STOP 

IF INT<M>*M THEN 665 

PRINT "I ILL KEEP THE 50 CENTS. THANKS FOR THE TIP." 
LET M-INT(M) 

RETURN 

END 
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Here is a test run. 


IF YOU WISH TO QUIT, TYPE 99 
YOU HAVE 100 DOLLARS TO PLAY 
PICK 1,2,3,47 3 
BET? 15 

SPECIFY R? 3 ◄- 

STOPPED AT 3 

YOU WIN $ 52,5 ◄- 

I 'LL KEEP THE 50 CENTS* THAI* 

YOU NOW HAVE 152 DOLLARS*◄— 

PI CK 1,2,3,47 1 

BET? 20 

SPECIFY R? 2 

STOPPED AT 1 

YOU WIN $ 40 

YOU NOW HAVE 192 DOLLARS. 

PICK 1,2,3,47 99 

HOPE YOU HAD FUN. COME BACK 


TYPE 99 AFTER 
TO PLAY WITH. 


I WANT WHEEL TO STOP AT 3 


- THIS IS 3.5 1 

CENTS. THANKS FOR THE TIP." 
DOLLARS. BANKROLL ROUNDED 
DOWN 


50 CENT TIP SUBROUTINE 
TYPED THIS 


It works. 

On-line: 

1. Take YOUR BIG WHEEL program, saved in the 
last exercise set, and look for bugs. If you find any, 
insert patches to correct them. This completes the 
development of YOUR BIG WHEEL program; save 
it for use in the next section. 


5.11 DOCUMENTATION 

Your first big program is now running like a charm. 
That will make you, and whoever plays your game, 
happy. It seems as if the job is done. However, a smooth 
running program is not complete in itself. In school your 
teacher is concerned about how you wrote the program. 
If you’re a professional programmer in business or 
industry, other members of your organization may have 
to modify your program at some future date. After all, 
you might leave the company. In fact, you yourself 
might very well want to revise your program at some 
future date and only then discover that you can’t re¬ 
member how you put it together. In short, you must 
support or document your program with additional in¬ 
formation. Here’s a list of the required documentation 
for a program. 

1. Verbal Description. Write a paragraph which de¬ 
scribes what your program does and how to use it. 
Are there any limitations on the use of the program? 

2. History of Development. Outline the steps you fol¬ 
lowed in developing your program. For example, in 
BIG WHEEL we first designed a wheel and con¬ 
structed a payoff table. Then we wrote a subroutine 
to spin the wheel and assign payoff factors. Next we 
attached this subroutine to the main program. The 
resultant program was BIG WHEEL/ELEMEN¬ 
TARY, a thirty-five line program. We then de¬ 
veloped subroutines for FLAG 99, BET OK, 
BUSTED, VALID, RING BELL, LOSER, and 
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INSTRUCTIONS. We also worked on program 
personality and layout. Then we discovered a bug 
and inserted the 50 CENT TIP subroutine. Our final 
version of BIG WHEEL was a program of over one 
hundred and thirty lines. 

3. Flow Charts and Listings. Draw a flow chart for the 
main program and all subroutines. Accompany each 
flow chart with a list of the corresponding program 
steps. 

4. Organizational Chart. Draw a block diagram of the 
main program and subroutines. For BIG WHEEL 
the block diagram looks like this. 



MAIN 

PROGRAM 


SUBROUTINES 


5. Program Listing. Attach a complete listing of the 
program with footnotes or remarks, brackets and 
labels for subroutines, and tags for all GO SUB 
statements. 

In BASIC there is a command which allows you to 
insert remarks or footnotes in the program listing. The 
command is REM, an abbreviation for the word remark. 

Here is how you use it. Look at the FLAG 99 sub¬ 
routine, beginning at line 300. 

300 IF N = 99 THEN 310 
305 RETURN 

310 PRINT “HOPE YOU HAD FUN. 

COME BACK SOON.” 233 

315 STOP 
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To identify to the reader that the FLAG 99 routine is in 
lines 300 through 315, you insert at line 299. 

299 REM FLAG 99 300-315 

When you RUN a program, the computer skips over 
any line in the program which begins with REM. When 
you LIST a program, however, all REM statements are 
printed out. To make a REM statement stand out from 
the other lines, add dashes to make it look like this: 
299 REM_FLAG 99 300-315_ 

You can also use REM commands at the beginning of 
the program to give the name of the program and the 
programmer, the date the program was written, and the 
location of the main program and the subroutines. 

Here is my BIG WHEEL complete with REM state¬ 
ments and all the routines and features discussed in this 
chapter. I’ve bracketed each subroutine and pinpointed 
with arrows and labels the location of the GO SUB 
commands which activate the subroutines. 


BIG WHEEL 


PROGRAM l 

2 

3 


4 

5 
10 
12 

13 

14 


MAIN 

PROGRAM 


15 

16 

17 

18 

19 

20 

30 

31 

32 
35 
40 

50 

51 

52 
60 

70 

71 
80 
90 

100 

110 

111 

120 

130 

131 
140 

150 

151 
160 
161 
170 

_180 


REM-PROGRAM! BIG WHEEL 

REM-WRITTEN BY! EDWIN R. SAGE 

REM-DATE! JANUARY 1974 

REM -MAIN PROGRAM! LINES 10-180 

REM-SUBROUTINES! LINES 200-960 


RANDOM 

PRINT TAB(27>;*PLAYING BIG WHEEL** 

PRINT 

PRINT 

GO SUB 900 <4-ACTIVATE INSTRUCTION 

PRINT **PLEASE TELL ME YOUR NAME"! 

INPUT NS 

PRINT 

PRINT 

LET M*INT<51*RND(X>>+50 

PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

PRINT 

PRINT 

PRINT "-WHEEL IS SPINNING" 

PRINT "PICK 1*2*3*4"! 

INPUT N 

GO SUB 300 ◄- ACTIVATE FLAG 99 

GO SUB 600 < - ACTIVATE VALID 

PRINT "BET"! 

INPUT B 

GO SUB 400 *- ACTIVATE BET OK 

GO SUB 200 4-ACTIVATE SPIN WHEEL 

PRINT "-WHEEL STOPPED AT" W 

IF W»N THEN 150 
PRINT "YOU LOSE S" B 

GO SUB 700 *-ACTIVATE LOSER 

LET M*M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO SUB 500 ◄-ACTIVATE BUSTED 

GO TO 31 

PRINT "YOU WIN $"P*B 

GO SUB 350 < -ACTIVATE RING BELL 

LET M*M*P*B 

GO SUB 650 ^-ACTIVATE 50 CENT TIP 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 31 
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SPIN 

WHEEL 


FLAG 99 


RING BELL 


BET OK 


199 

“200 

205 

210 

21 5 
220 

22 5 
230 
235 
240 
245 
250 
255 
260 
265 
270 

_275 

299 

“300 

305 

310 

-315 

349 

”350 

355 

360 

_365 

399 

“400 

405 

410 

415 

420 

425 

430 

435 

440 


445 

450 

455 


1—460 


BUSTED 


499 
— 500 
505 
510 
51 5 
520 
525 
530 
535 
540 
545 
550 
_555 


REM-SPIN WHEEL 200-275- 

LET R*INT(9*RNDCX)>+1 

IF R<*3 THEN 265 

IF R<*6 THEN 250 

IF R< 3 8 THEN 235 

LET W*4 

LET P*8 

RETURN 

LET W*3 

LET P*3.5 

RETURN 

LET V»2 

LET P»2 

RETURN 

LET W=* 1 

LET P=2 

RETURN 

REM-FLAG 99 300-315- 

IF N*99 THEN 310 
RETURN 

PRINT "H0PE YOU HAD FUN " NS M . COME SACK SOON*" 

STOP 

REM-RING BELL 350-365- 

FOR C*1 TO 5 
PRINT CHR$<135); 

NEXT C 
RETURN 

REM-BET OK 400-460- 

IF B>M THEN 455 
IF 8<0 THEN 445 
IF B<1 THEN 435 
IF INT(B)-B THEN 430 

PRINT "WHAT 1 S THIS CENTS STUFF! BET WHOLE DOLLAR AMOUNTS. 

GO TO 60 

RETURN 

PRINT "DON•T BE CHEAP. BET AT LEAST A DOLLAR." 

GO TO 60 

PRINT "STUPID! YOU CAN * T BET A NEGATIVE AMOUNT." 

GO TO 60 

PRINT "SMART HUH? YOU DON'T HAVE THAT MUCH MONEY." 

GO TO 60 

REM-BUSTED 500-555- 

IF M»0 THEN 510 
RETURN 

PRINT "TOO BAD--YOU LOST ALL THE MONEY I GAVE YOU, BUT" 
PRINT "I'LL BE GENEROUS AND GIVE YOU ANOTHER CHANCE." 
PRINT "WOULD YOU LIKE TO PLAY AGAIN"; 

INPUT AS 

IF AS 3 "YES" THEN 20 
IF AS»"NO" THEN 550 
PRINT "ANSWER YES OR NO." 

GO TO 520 

PRINT "THANKS FOR PLAYING. BETTER LUCK NEXT TIME." 

STOP 
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VALID 


50 CENT TIP 


599 HEM-VALID INPUT 600-615- 

600 IF CN-1)#<N-2)*<N-3)*<N-4)*0 THEN 615 
60S PRINT "FOLLOW DIRECTIONS DUMMY." 

610 GO TO 40 
615 RETURN 

649 REM--50 CENT TIP 650-665- 

650 IF INT(M)-M THEN 665 

655 PRINT "I'LL KEEP THE 50 CENTS. THANKS FOR THE TIP. 
660 LET M*INT(M) 

665 RETURN 

699 REM-LOSING PERSONALITY 700 - 770- 


“700 LET R« INTC 5*RNDCX ) >♦ 1 

705 ON R GO TO 765.755,745,735.725 
725 PRINT "WHAT BAD LUCK." 

730 RETURN 

735 PRINT "YOU BLEW IT." 

740 RETURN 

745 PRINT "I LOVE YOUR MONEY." 

750 RETURN 

755 PRINT "BETTER LUCK NEXT TIME." 
760 RETURN 

765 PRINT "THAT'S TOO BAD." 

_770 RETURN 


899 REM-INSTRUCTIONS 900-960 


• • 


“900 PRINT "DO YOU WANT INSTRUCTIONS"! 

905 INPUT AS 

906 PRINT 

907 PRINT 

910 IF AS»"NO” THEN 930 

915 IF AS*"YES" THEN 935 

920 PRINT "ANSWER YES OR NO*" 

925 GO TO 900 
930 RETURN 

935 PRINT "IMAGINE A LARGE CARNIVAL WHE&L* 6 FEET IN DIAMETER," 

936 PRINT "DIVIDED INTO 9 EQUAL PIE-SHAPED PIECES. THREE SECTIONS 

937 PRINT "ARE NUMBERED 1, THREE SECTIONS ARE NUMBERED 2, TWO" 

938 PRINT "SECTIONS ARE NUMBERED 3, AND ONE SECTION IS NUMBERED 4 

939 PRINT 

940 PRINT "THE WHEEL WILL BE SPUN AND THEN YOU WILL HAVE AN" 

941 PRINT "OPPORTUNITY TO BET ON ONE OF THE FOUR NUMBERS" 
INSTRUCTIONS 942 PRINT "BEFORE THE WHEEL COMES TO REST." 

943 PRINT 

944 PRINT "AT THE START OF EACH GAME, YOU WILL RECEIVE" 

945 PRINT "A CERTAIN AMOUNT OF MONEY TO BET IN WHOLE" 

946 PRINT "DOLLAR AMOUNTS." 

947 PRINT 

948 PRINT "SECTION NUMBERS PAYOFF AS FOLLOWS!" 

949 PRINT "1 PAYS 2 TIMES YOUR BET." 

950 PRINT "2 PAYS 2 TIMES YOUR BET." 

951 PRINT "3 PAYS 3.5 TIMES YOUR BET." 

952 PRINT "4 PAYS 8 TIMES YOUR BET." 

953 PRINT 

954 PRINT "WHEN YOU WANT TO QUITCIF YOU DON *T GO BROKE FIRST)" 

955 PKINT "TYPE 99 WHEN ASKED TO PICK 1,2,3,4." 

956 PRINT 

957 PRINT 

958 PRINT "LET’S GO." 

959 PRINT 
_ 960 RETURN 


999 END 
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6. Typical Run. 

To complete the documentation, attach a run of the final 
program which illustrates the operation of each sub¬ 
routine just as I have in the typical runs in this chapter. 


Off- line and On-line: 

1. Put together the following items to document your 

program, YOUR BIG WHEEL. 

A. Verbal Description. Write a verbal description 
of what your game does and how to play it. 

B. History of Development. Tell how you de¬ 
veloped your program. Draw a picture of your 
big wheel and attach a copy of the payoff table. 
If you were to develop the program again, 
would you follow the same procedure? 

C. Flow Charts and Listings. Draw a flow chart 
of the main program and attach a computer 
listing of the corresponding program steps. 
Draw a flow chart of each subroutine and at¬ 
tach a computer listing of the corresponding 
program steps. Title each flow chart and list¬ 
ing. 

D. Organizational Chart. Construct a schematic 
diagram showing the organization of the prog¬ 
ram. 

E. Program Listing. Attach a complete listing of 
your program, including REM statements. 
Bracket and label the main program and sub¬ 
routines. Use arrows to pinpoint GO SUBS. 

F. Typical Run. Attach a typical run. 
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PLAYING CRAPS 


DO YOU WANT INSTRUCTIONS? YES 


THIS IS A DICE GAME WHERE YOU BET ON THE SUM 
OF TWO DICE* I WILL ROLL THE DICE. 

IF ON THE FIRST ROLL# THE SUM OF THE DICE IS 7 OR 11/ 
YOU WIN. ON THE OTHER HAND# IF THE SUM IS 2#3# OR 12# 
YOU LOSE. IF THE SUM# HOWEVER# IS NONE OF THESE 
NUMBERS< 7#11# 2# 3# OR 12# THEN THE SUM# ONE OF THE 
REMAINING OUTCOMES! 4#5#6#8#9#0R 10# IS KNOWN AS 
YOUR 'POINT'. 

I WILL THEN ROLL THE DICE REPEATEDLY UNTIL THE SUM 
IS EITHER 7 OR YOUR 'POINT*. IF THE SUM IS 7# YOU 
AUTOMATICALLY LOSE. IF THE SUM IS YOUR 'POINT'# 

YOU WIN. 

THE PAYOFF IS 1 TO 1. 

WHEN YOU WANT TO QUITCIF YOU DON'T GO BROKE FIRST) 
TYPE 999 WHEN ASKED TO BET. 


LET'S GO. 

YOU HAVE 69 DOLLARS TO PLAY WITH. 


I'M ROLLING THE DICE. 

BET PLEASE? 35 

YOU ROLLED 5 AND 5 . SUM IS 10 . 

YOUR 'POINT* IS 10 

YOUR NEXT ROLL! 4 AND 6 . SUM IS 10 . 
YOU WIN. 

CONGRATULATIONS. 

YOU NOW HAVE 104 DOLLARS. 


I'M ROLLING THE DICE. 

BET PLEASE? 50 

YOU ROLLED 1 AND 1 . SUM IS 2 . 
YOU LOSE. 

I LOVE YOUR MONEY. 

YOU NOW HAVE 54 DOLLARS. 
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I'M ROLLING THE DICE. 

BET PLEASE? 999 

HOPE YOU HAD FUN. COME BACK SOON 
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6 

COIN AND DICE GAMES 


In previous chapters you have seen two or three 
methods for generating a “random” output. In the 
Guess-A-Number games in Chapters 2 and 3 you used 
your o wn “ random ’ ’ mind,or the computer ‘ ‘ looked up’ ’ a 
number in a table of random numbers. In BIG WHEEL 
the device for generating a random output was the wheel 
commonly used at carnivals. Over the centuries people 
have invented many other simple mechanisms for 
generating random outputs. One is the coin; another is 
the die, or, if you have two or more, dice. The popular¬ 
ity of the coin and the die are based in part on their 
portability and in part on their intuitive symmetry. After 
all, it’s hard to argue with a nickel. 

First we’ll discuss the basic operation of coin tossing, 
particularly the probability of the outcomes when you 
toss one or more coins. You will write a program called 
TWO COIN, which simulates the tossing of two coins 
and allows a player to bet on the outcome. You will find 
this new game is a special case of BIG WHEEL, so it 
will be expedient simply to modify your existing 
program, YOUR BIG WHEEL. 

Next we will discuss the basic operation of die 
tossing. You will write a program called CRAPS, which 
simulates the tossing of two dice and allows a player to 
bet on the outcome. Like TWO COIN, this program has 
a family relationship to BIG WHEEL, but you’ll build it 
from scratch. In any case, by the time you’re through, 
you’ll be a better craps shooter 1 . 

While the games in this chapter are used to teach 
computer programming, you should be aware that these 
same events, e.g. flipping one or two coins, rolling one 
or two dice, are commonly used to elucidate probability 
theory. It is not our purpose to teach probability in this 
book, however. 

6.1 HEADS OR TAILS: TEACHING THE 
COMPUTER TO TOSS A COIN 

Write a program to simulate the tossing of one coin 
twenty times. When you flip a coin, you assume from its 
symmetry that there are two possible outcomes, one 
called heads and the other tails (no edges, please), and 
that the probability of the coin's landing heads is Vi, or. 5, 
and the probability of its landing tails is also Vi, or .5. 
These are the calculated or theoretical probabilities. In 
real life the evidence may not fit the theory perfectly. 
Let’s see. 
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If we toss a coin, record the outcome, and toss it 
again, we expect that, after a great number of tosses, the 
number of heads obtained will be about the same as the 
number of tails. Not the same, but close. Further, if 
there are no defects in the coin, the difference between 
the number of heads and tails will be reduced as we toss 
the coin more times. The same is true when you use a 
computer to toss a coin. The more tosses, the more 
nearly equal the number of heads and tails will be. 

Since there are two equally probable outcomes to a 
coin toss, we will use the random number generator, 
RND(X), to pick a number at random between 0 and 1. 
If the number is less than .5, it’s a head. If the number is 
greater than or equal to .5, it’s a tail. You might think 
that a greater number of tails will occur since . 5 has been 
included. How often will .5 occur? Let’s find out. My 
computer prints out seven digits. How many different 
seven-digit numbers are there? We can consider a 
seven-digit number to be composed of seven slots, each 
to be filled with a digit from 0 to 9. 


SLOT 



SEVEN DIGIT NUMBER 


The first slot can be filled in one of ten ways; the second 
in one of ten ways; and so on. If you multiply the 
number of ways you can fill the first slot by the number 
of ways you can fill the second slot, and so on, you get 
10*10*10*10*10*10*10, or 10 7 . That’s 10,000,000. 
ONE COIN/20 But s * nce RND(X) cannot generate .0000000 you get 

FLOW CHART 9,999,999 seven-digit numbers, of which .5000000 is 
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20 TOSSES 


1 RANDOM PROGRAM 

—10 FOR C»1 TO 20 
20 LET RaRNOCX) 

30 IF R< • 5 THEN 70 
40 PRINT "TAILS" 

L-50 NEXT C 
60 STOP 

70 PRINT "HEADS" 

80 GO TO 50 
90 END 


Incidentally, if in the above flow chart the NEXT 
statement had been put in the YES branch instead of the 
NO branch, the flow chart would look like this. 



HEADS 

HEADS 

HEADS 

HEADS 

TAILS 

TAILS 

HEADS 

HEADS 

TAILS 

HEADS 

TAILS 

HEADS 

HEADS 

TAILS 

TAILS 

HEADS 

HEADS 

HEADS 

TAILS 

HEADS 


The program would look like this. 


1 


20 TOSSES 


I—10 
20 
30 
40 
50 
60 
—70 
30 


RANDOM 

FOR C*1 TO 20 
LET RaRND(X) 

IF R<•5 THEN 60 
PRINT "TAILS" 

GO TO 70 
PRINT "HEADS" 
NEXT C 
END 


PROGRAM 


Look at the two programs, ONE COIN/20 and ONE 
COIN/20/ELEGANT, side by side. Fve indicated the 
loop in each with a bracket. 


ONE CO IN/20 


ONE COIN/20/ELEGANT 


1 RANDOM 

r— 10 FOR C* 1 TO 20 
20 20 LET R»RND<X> 

TOSSES 30 IF R< • 5 THEN 70 
40 PRINT "TAILS" 

—50 NEXT C 
60 STOP 

70 PRINT "HEADS" 

80 GO TO 50 
90 END 


PROGRAM 


20 TOSSES 


1 RANDOM 

|—10 FOR C-l TO 20 
20 LET RaRND(X) 

30 IF R<.5 THEN 60 
40 PRINT "TAILS" 

50 GO TO 70 
60 PRINT "HEADS" 

— 70 NEXT C 
80 END 


OUTPUT 


PROGRAM 
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We’ve saved a step. That’s good. As in a geometric 
proof, the fewer the steps, the more “elegant” the 
program. In short, if you construct a loop which con¬ 
tains questions, and therefore branches, you can save a 
step by placing the NEXT statement at the end of the 
first YES branch. What you save is the STOP statement. 
ONE COIN/20/ELEGANT not only reduces the length 
of ONE COIN/20 by one step, but also makes the 
structure of the program more apparent by putting both 
PRINT statements inside the loop. So much for saving a 
step. 

Perhaps you would rather have the computer use its 
random number generator to generate a 1 or 2 , 1 mean¬ 
ing heads and 2 meaning tails. To help you remember 
that 1 is heads and 2 is tails, recall that 1 comes before 2 
on the number line, just as h comes before t in the 
alphabet. To make this change, we change line 20 to 
include the INT expression: LET R=INT(2*RND 


(X))+l. 

ONE COIN/1 OR 2 PROGRAM 1 RANDOM OUTPUT TAILS 

r 10 FOR CM TO 20 READS 

20 LET RM NT( 2*RND< X) ) + 1 TAILS 

30 IF RM THEN 60 HEADS 

20 TOSSES 4 0 print ••TAILS" READS 

50 GO TO 70 TAILS 

60 PRINT "READS" HEADS 

—70 NEXT C READS 


30 END 

READS 

TAILS 

READS 

TAILS 

READS 

TAILS 

TAILS 

TAILS 

TAILS 

READS 

TAILS 


In a run of a thousand tosses, it will save space to print 
H for HEADS and T for TAILS horizontally across the 
page. We can do this by using the semicolon at the end 
ONE COIN/HT °f lines 40 and 60. 

PROGRAM 1 RANDOM OUTPUT TRRRTRRRTTRTRTRRTTTR 

— 10 FOR CM TO 20 
20 LET R*I NT( 2*RND( X) > + 1 
30 IF RM THEN 60 
20 TOSSES 40 PRINT "T"J 
50 GO TO 70 
60 PRINT "H"; 

—70 NEXT C Look at the above output. There are eleven heads and 

30 END nine t a ils. Although it’s pretty close, the outcome does 

not match the theoretical expectation of ten heads and 
ten tails. Let’s flip a coin 1,000 times and see how close 
the results come to the 50/50 distribution of heads and 
tails forecast by theory. 
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Write a program to toss a coin 1,000 times. The 
computer can simulate the tossing of a coin much faster 
than the Teletype can print out the results of each toss. 
Since we’re concerned only with the totals after 1,000 
tosses, let’s put two counters, T and H, in the computer 
to keep running totals of the number of tails and the 
number of heads and print the results just once, after 
1,000 tosses. Here is the algorithm for 1,000 consecu¬ 
tive tosses in flow chart form: 



ONE COIN/1000 
FLOW CHART 


The following program is encoded from this flow chart. 

PROGRAM 

OUTPUT 

HEADS TAILS 

489 511 


Look at the output. The difference between the number 
of heads and tails is 22. This difference of 22 in 1000 
tosses is proportionately less than the difference of 2 in 
20 tosses. Thus, the greater the number of tosses the 
closer the results come to the 50/50 distribution as 
forecast by theory. 

Was the number of tails at each point in the 1,000 
tosses greater than the number of heads? To answer this 
question, instruct the computer to stop momentarily 


1000 TOSSES 


1 RANDOM 

5 LET T»0 

6 LET H*0 

I—10 FOR C=»t TO 1000 

20 LET R*I NTC 2* RNDC X) ) ♦ 1 
30 IF R=1 THEN 60 
40 LET T»T+1 
50 60 TO 70 
60 LET H-H+l 
1—70 NEXT C 

3 0 PRINT ‘MEADS'S ••TAILS” 
9 0 PRINT H* T 
100 END 
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ONE COIN/1000/100 FLOWCHART 


FOR C = 1 TO 1000 


GENERATE 

R 

RND (1-2) 


after each 100 tosses, that is when C is one of the 
numbers 100, 200, 300, . . ., 1,000. To determine if C 
is one of these numbers, C must be divisible by 100. To 
test for divisibility we insert the statement: INT 
(C/100) = C/100. Suppose C = 200. On the left side, 
INT(200/100), or INT(2), is 2. On the right side, 
200/100 is also 2. Thus the statement 
INT(C)100) = C/100 is true when C is divisible by 
100. This test for divisibility of C by 100 is inserted in 
the following flow chart immediately before NEXT C. 


is yes 

R = 1 ? >-- 


o- 


INT(C/100) =0/100? 


GM 


PRINT 

TOTALS 


Here is the new program. It gives us the score of 
heads versus tails after each 100 tosses of the coin. 


PROGRAM 1 RANDOM 

5 LET T«0 

6 LET H*0 

8 PRINT "TOSSES","HEADS","TAILS" 
—10 FOR C»1 TO 1000 
20 LET R»INTC 2*RND< X)) ♦ 1 
30 IF R»t THEN 60 

1000 TOSSES 

50 GO TO 70 
60 LET H*H+1 

70 IF INTC C/100)*C/100 THEN 100 
•—80 NEXT C 
90 STOP 

100 PRINT C,H,T ◄- 

110 GO TO 80 
120 END 


-COLUMN HEADING 


PRINT TOTALS 


OUTPUT TOSSES HEADS TAILS 


100 

43 

57 

200 

104 

96 

300 

158 

142 

400 

21 1 

189 

500 

261 

239 

600 

315 

285 

700 

359 

341 

800 

404 

396 

900 

453 

447 

1000 

507 

49 3 
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The PRINT statements in lines 8 and 100 both call for 
three items to be printed. Since the items in each case 
are separated by commas, they will be printed in the first 
three of the five columns into which the computer di¬ 
vides the page. 

How does the distribution of heads and tails after 
1,000 tosses compare with the distribution of heads and 
tails obtained using the program ONE COIN/1000? By 
chance, this time there are more heads than tails. 

Look again at the FIRST YES BRANCH in the flow 
chart ONE COIN/1000/100. 



As I explained in developing ONE COIN/20/ 
ELEGANT, the number of steps in the overall program 
can be reduced if NEXT C is placed at the end of the 
YES branch. To accomplish this in the above flow 
chart, however, the form of the question must be 
changed. The present question asks if INT(C/100) is 
equal to C/100. The new question will ask if 
INT(C/100) is not equal to C/100. The phrase, is not 
equal to, is usually represented by an equal sign with a 
slash through it (^0. This symbol does not exist on the 
Teletype, however. Instead we use the two symbols for 
“less than” (<) and “greater than” (>) together, thus, 
< >. 



The use of negations in a flow chart usually requires 
more careful thought than positive statements. If we ask 
the question: Is INT(C/100) < >C/100? the answer is 
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YES when C is not divisible by 100 and NO when C is 
divisible by 100. For example, suppose the counter, C, 
is 325. Then INT(325/100) < >325/100 becomes 
3< >3.25, which is true, and the answer to: Is 
INT(325/100) < > 325/100? is YES. The counter, C, 
is not divisible by 100, so the computer moves on to 
NEXT C. On the other hand, if C is 500, then 
INT(500/100)< >500/100 becomes 5< >5 which is 
false. Five does equal five, and the answer to: Is INT 
(C/100)< >C/100? is NO. Since C is divisible by 100, 
the computer prints the score. The negative approach is 
encoded this way: 

70 IF INT(C/100)< >C/100 THEN 90 
80 PRINT C,H,T 
90 NEXT C 
100 END 

These four steps replace lines 70 through 120 in the old 
program, ONE COIN/1000/100. You save two steps, 
obtaining a more elegant program. 

Here is a complete listing of the program using the 
negative approach. A bracket shows the loop. As be- 

ONE COIN/1000/100/ELEGANT fore ’ a11 three branches now fal1 within the loop. 


PROGRAM 1 

5 

6 
8 


1000 TOSSES 


20 

30 

40 

50 

60 

70 

80 

-90 

100 


RANDOM 
LET T»0 
LET H»0 

PRINT •• TOSSES M #"MEADS"#"TAILS" 

FOR C*1 TO 1000 
LET RMNTC 2*RND( X) ) + 1 
IF R*1 THEN 60 

LET T»T* 1 + - COUNT HEADS BRANCH 

GO TO 70 

LET H»H+ 1 + - COUNT TAILS BRANCH 

IF INTC C/100)< >C/100 THEN 90 

PRINT C*HjT<«- PRINT TOTALS BRANCH 

NEXT C 
END 


So much for tossing one coin. In a few minutes we’ll 
have the computer toss two coins. In the meantime, has 
it occurred to you that tossing a coin is equivalent to 
spinning a big wheel which has been divided into two 
equal sections, one labeled heads, the other tails? Here 
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need only change the column heading TOSSES to 
SPINS. In general, to generate any two outcomes which 
occur with equal probability, instruct the computer to 
generate the numbers 1 and 2 at random and then assign 
an appropriate label to each number. 


EXERCISE SET 6.1 


On-line: 

1. Draw a flow chart and write the most elegant pro¬ 
gram possible to simulate the spinning of the follow¬ 
ing wheel 1000 times. 



There are two outcomes when the wheel comes to 
rest, red or black. Have your program produce an 
output similar to this: 


SPINS 

RED 

BLACK 

100 

54 

46 

200 

105 

95 

300 

161 

139 

400 

203 

197 

500 

252 

248 

600 

309 

29 1 

700 

356 

344 

800 

405 

39 5 

900 

452 

448 

1000 

500 

500 


2. Program the computer to simulate this “real life” 
event: A pail contains nine colored tennis balls. 
Three are colored red, three green, two blue, and 
one yellow. Draw a ball without peeking, look at the 
color, and keep track of the outcome. Put the ball 
back in the pail. Draw again, look at the color, and 
note the outcome. Repeat this procedure 900 times. 
After every 100 draws record on a piece of paper the 
total number of red, green, blue and yellow balls 
you have drawn to that point. Predict the number of 
balls of each color you will have after 900 draws. To 
write your program you may wish to “construct” a 
Big Wheel which is divided into nine equal pie¬ 
shaped pieces, one to represent each of the nine 
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tennis balls. Your program should produce an out¬ 
put like this: 


DRAWS 

RED 

GREEN 

BLUE 

YELLOW 

100 

38 

29 

26 

7 

200 

75 

60 

45 

20 

300 

109 

98 

62 

31 

400 

136 

137 

84 

43 

500 

166 

173 

101 

55 

600 

201 

206 

125 

63 

700 

236 

236 

148 

30 

800 

271 

267 

174 

33 

900 

314 

295 

190 

101 


6.2 TOSSING TWO COINS 

An easy way to generate a more complex set of 
random outcomes is to toss two coins, this way: Take a 
coin, toss it and record the outcome, heads or tails. Then 
take the same coin or a second coin, toss it and record 
the outcome. The set of four possible outcomes is: 

FIRST TOSS SECOND TOSS OUTCOME 

HEAD HEAD HEAD HEAD 

HEAD TAIL HEAD TAIL 

TAIL HEAD TAIL HEAD 

TAIL TAIL TAIL TAIL 

Perhaps you already kpow the probability of each out¬ 
come. But perhaps you don’t. I’ll show you how to use 
the computer to find the answer. We will program the 
computer to simulate the repeated tossing of two coins, 
followed each time by the recording of the outcome. 
The tossing and recording will be done 1000 times. 
After 1000 tosses, the experimental probability of each 
of the four outcomes can be obtained by dividing the 
number of times each outcome occurred by 1000. As in 
tossing one coin, the more often you toss two coins, the 
closer the experimental values will be to the theoretical 
values. Here’s how it’s done. 

Write a program to toss two coins twenty times. 

We still make use of the fact that, when a coin is tossed, 
the probability of each event, head or tail, is 1/2. To 
‘ ‘toss” the first coin, instruct the computer to generate a 
random number, R, which is a 1 or 2. This number is 
tested for head, R = 1, or for tail, R = 2. Then, to 
“toss” the second coin, instruct the computer to again 
generate a 1 or 2 at random. It is also tested for head, 
R = 1, or for tail, R = 2. At this point the first trial is 
complete; one of the four outcomes has occurred. This 
process is repeated again for a total of twenty trials. 
Four branches are required in the following flow chart. 
(HEAD) and (TAIL) are used to help you keep track of 
the outcome of each question. 
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Look at the flow chart. Suppose the computer gener¬ 
ates a 1 as the first value for R. The answer to the first 
question is YES; the outcome is a head. The computer 
immediately generates a second value for R. Suppose it 
is again a 1. The answer to the second question is YES; 
the outcome is again a head. The computer then prints 
HEAD HEAD. Here’s the program: 


I RANDOM PROGRAM 

-10 FOR C»1 TO 20 

20 LET R»INT<2*RNDCX>>+! 

30 IF R»1 THEN 100 
40 LET R»INT<2*RND<X>>♦! 

50 IF R*1 THEN 80 
60 PRINT ”TAIL TAIL” 

70 GO TO 150 

20 TRIALS g0 pRi n T "TAIL HEAD” 

90 QO TO 150 

100 LET R*INT(2*RND<X))+l 
110 IF R*1 THEN 140 
120 PRINT "HEAD TAIL” 

130 00 TO 150 

140 PRINT "HEAD HEAD” 

1-150 NEXT C 
160 END 

The program TWO COIN/20 can be shortened by 
using only one expression instead of three to generate a 
random number. The expression is LET R = INT 
(2*RND(X)) + 1. To execute it twice, once for each 


HEAD TAIL OUTPUT 
TAIL HEAD 
TAIL HEAD 
TAIL TAIL 
TAIL HEAD 
TAIL TAIL 
TAIL TAIL 
TAIL HEAD 
HEAD TAIL 
HEAD TAIL 
HEAD HEAD 
TAIL.HEAD 
HEAD TAIL 
TAIL HEAD 
TAIL TAIL 
HEAD HEAD 
HEAD HEAD 
TAIL HEAD 
HEAD TAIL 
TAIL HEAD 
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TWO COIN/20/2-LOOP 
FLOW CHART 


20 TRIALS 


toss, we’ll create a loop. Since C is used to designate the 
number-of-trials counter, we’ll use D to designate the 
number-of-tosses counter. Here is the flow chart. 



«-© 


Assume that on the first trial, the toss of the first coin 
yields R = 1 and the toss of the second coin yields 
R = 2. Play computer, following the instructions in the 
above flow chart, to determine the outcome. So much 
for the flow chart. Here is the program and a typical run. 


TOSSES 


1 

RANDOM 

OUTPUT 

HEAD 

HEAD 

—10 

FOR C»1 TO 20 


TAIL 

TAIL 

r—20 

FOR D* 1 TO 2 


HEAD 

TAIL 

30 

LET R«1NT(2*RND<X>>+l 

HEAD 

HEAD 

40 

IF R*1 THEN 70 


HEAD 

TAIL 

50 

PRINT “TAIL "t 


HEAD 

TAIL 

60 

60 TO 80 


TAIL 

HEAD 

70 

PRINT "HEAD "I 


TAIL 

HEAD 

L-80 

NEXT D 


TAIL 

HEAD 

90 

PRINT 


HEAD 

HEAD 

-100 

NEXT C 


HEAD 

HEAD 

110 

END 


TAIL 

TAIL 




HEAD 

TAIL 




TAIL 

TAIL 




TAIL 

HEAD 




TAIL 

TAIL 




TAIL 

TAIL 




TAIL 

HEAD 




TAIL 

TAIL 




HEAD 

TAIL 


Play computer again, this time following the instruc¬ 
tions in the above program. As above, assume that, on 
the first trial, the toss of the first coin yields R = 1 and 
the toss of the second coin yields R = 2. Don’t get hung 
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up at line 80 NEXT D when you have exhausted the two 
tosses. When the inner D loop is satisfied, you, the 
computer, just go to the next line, in this case 90. Look 
at lines 50 and 70. The semicolon is used so that, after 
the first outcome, HEADS or TAILS, is typed, the 
outcome of the second toss will be typed on the same 
line. The blank space within the quotes at the end of the 
word TAILS or HEADS separates the two words when 
they are printed on the same line. What is the function of 
line 90? On each line we want only the two outcomes 
that constitute one trial. Each time the D loop is satis¬ 
fied, the PRINT statement on line 90 signals the compu¬ 
ter to stop printing on that particular line and to 
“linefeed” to the next one. 

So much for the program. No\^ let’s look at the 
output. The results are summarized in the following 
table. 


OUTCOME 

FREQUENCY 

HEAD 

HEAD 

4 

HEAD 

TAIL 

5 

TAIL 

HEAD 

5 

TAIL 

TAIL 

6 


It looks as if each outcome occurs about 25 percent of 
the time. But, as in the one-coin experiment, we would 
have more confidence in this generality if we had more 
data. 

Write a program to toss two coins 1000 times. Look 
again at the flow chart for TWO COIN/20. 



TWO COIN/20 
FLOW CHART 


We are interested, not in a trial by trial analysis of the 
outcomes, but in the total number of TAIL TAIL, TAIL 
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HEAD, HEAD TAIL, and HEAD HEAD outcomes in 
1000 trials. Thus, the PRINT statements can be elimi¬ 
nated and in their place counters can be inserted to count 
the number of times each outcome has occurred. The 
new counters are: 

(1) Cl counts the number of TAIL TAIL outcomes. 

(2) C2 counts the number of TAIL HEAD outcomes. 

(3) C3 counts the number of HEAD TAIL outcomes. 

(4) C4 counts the number of HEAD HEAD out¬ 
comes. 

A second change is to replace FOR C = 1 TO 20 with 
FOR C = 1 TO 1000 in the first box of the flow chart. 
TWO COIN/1000/EXPER However we’re interested not only in the outcomes after 

FLOW CHART 1000 trials but in the score after each 100 trials. To test 



Look at the new diamond in which C is tested for 
divisibility by 100. We’ve used the negative approach. 
The following program is encoded from this flow chart. 
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1000 

TRIALS 


1 RANDOM 

5 LET C1*0 

6 LET C2*0 

7 LET C3*0 

8 LET C4*0 

9 PRINT "TOSSES"*"TAIL TAIL"*"TAIL HEAD"*"HEAD TAIL"* 
— 10 FOR C* 1 TO 1000 

20 LET R*INT( 2*RND(X> ) ♦ 1 
30 IF R*1 THEN 100 
40 LET R*INT(2*RND(X))♦1 
50 IF R*1 THEN 80 

60 LET C 1*C 1+ 1 ◄- TAIL TAIL COUNTER 

70 GO TO 150 

80 LET C2*C2+ 1 < - TAIL HEAD COUNTER 

90 GO TO 150 

100 LET R«INT(2*RND(X>) + 1 
110 IF R*1 THEN 140 

120 LET C3*C3+ 1 < - HEAD TAIL COUNTER 

130 GO TO 150 

140 LET C4-C4+1 ◄- HEAD HEAD COUNTER 

150 IF INT(C/100> <>C/100 THEN 170 

160 PRINT C*C1*C2*C3*C4 + - PRINT SCORE 

-170 NEXT C 

180 PRINT "PROBABILITY"* C1/1000* C2/1000* C3/1000* C4/1000 
190 END 


Suppose the first value of R is 1 and the second value is 
2; play computer to determine which outcome occurs, 
that is, which counter, Cl, C2, C3, or C4, is increased 
by 1. 


TOSSES TAIL TAIL 


100 

25 

200 

45 

300 

61 

400 

85 

500 

115 

600 

140 

700 

170 

800 

193 

900 

220 

1000 

245 

PROBABILITY 

• 245 


TAIL HEAD 

HEAD TAIL 

16 

28 

51 

46 

76 

70 

102 

94 

127 

120 

154 

145 

177 

172 

207 

198 

228 

227 

251 

252 

• 25 1 

• 252 


Look at the last line of the output. As expected, each 
one of the decimal numbers is close to .25, or 1/4. It 
looks as if the theoretical probability of each outcome is toss 

in fact .25. Can we show this is the case? The following 
diagram, known as a tree diagram, shows the four 
possible outcomes. H ^ 


T 

H 


When the first coin is tossed, we know the probability of 
a HEAD or TAIL is 1/2. Likewise, the probability of t 

obtaining a HEAD or TAIL with the second coin is 1/2. 


START 



2nd 

TOSS 

H 


PROGRAM 


"HEAD HEAD" 


4 FINAL 
RESULTS 


OUTPUT 

HEAD HEAD 
31 
58 
93 
119 
138 
161 
181 
202 
225 
252 
• 252 


OUTCOME 


H H 


H T 


T H 


T T 
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Whatever happens on the first toss has no influence on 
the outcome of the second toss. Since this is a two-coin 
experiment, the probability of an outcome such as 
HEAD HEAD is the probability of a HEAD on the first 
toss times the probability of a HEAD on the second toss. 
In the following tree diagram, the probability of each 
branch is shown. To the right is a list of the outcomes 
with their probabilities, obtained by multiplying the 
probabilities along the branches. 




1st 

TOSS 


2nd 

TOSS 

OUTCOME 

PROBABILITY 





H 

H H 

1/ 2 * 1/ 2 = 1/ 4 




^ 2 ^ 





^J/2^ 




H T 

V2 * V2 = 1/4 

START < 



^J/2^. 

H 

T H 

1/2 * V2 = 1/4 





T 

T T 

1/2 * I/2 = I/4 


The theoretical probability of each outcome is 1/4. 

The last program, TWO COIN/IOOO/EXPER, ar¬ 
rived at the four outcomes by simulating the real world 
experiment of tossing two coins repeatedly. In that 
program I used my knowledge of the theoretical proba¬ 
bility of a HEAD or a TAIL when one coin is tossed. 
Now that I know the theoretical probabilities of the four 
outcomes, HH, HT, TH and TT, I want to write a new, 
shorter program which generates the outcomes, not by 
“tossing” two coins, but by using the theoretical prob¬ 
abilities. I will instruct the computer, on each trial, to 
generate at random one of four equally likely numbers: 
1, 2, 3, or 4. The following convention will be used for 
the assignment of outcomes. 

(1) IfR = 1 then the outcome TAIL TAIL has occur¬ 
red. 

(2) If R = 2 then the outcome TAIL HEAD has 
occurred. 

(3) If R = 3 then the outcome HEAD TAIL has 
occurred. 

(4) If R = 4 then the outcome HEAD HEAD has 
occurred. 

As in TWO COIN/IOOO/EXPER, the following coun¬ 
ters will be used to count each outcome. 

(1) Cl counts the number of TAIL TAIL outcomes. 

(2) C2 counts the number of TAIL HEAD outcomes. 

(3) C3 counts the number of HEAD TAIL outcomes. 

(4) C4 counts the number of HEAD HEAD out¬ 
comes. 
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Here is the flow chart. 



Look at the flow chart. The computer generates a 
number, R, at random, tests the number to determine 
the outcome, and then adds 1 to the appropriate counter. 
Here is the program. 


1 

5 

6 

7 

8 
9 


— 1 0 
20 
30 


1000 

TRIALS 


40 

50 

60 

70 

80 

90 

100 

110 

120 

130 


140 

L 150 

160 

170 


RANDOM PROGRAM 

LET C1*0 

LET C2«0 

LET C3»0 

LET C4*0 

PRINT "TOSSES’S’’TAIL TAIL’S “TAIL HEAD’S’’HEAD TAIL’S’’HEAD HEAD” 

FOR Ol TO 1000 

LET R=»I NTC 4*RND( X> ) ♦ 1 

IF R«l THEN 120 

IF R*2 THEN 100 

IF R*3 THEN 80 

LET C4*C4+ 1 ◄- HEAD HEAD COUNTER 


GO TO 130 

LET C3-C3+ 1 + - HEAD TAIL COUNTER 

GO TO 130 

LET C2-C2+ 1 - TAIL HEAD COUNTER 

GO TO 130 

LET CI»C.1+1*- TAIL TAIL COUNTER 

IF INTC C/100)<>C/100 THEN 150 

PRINT C# Cl# C2# C3# C4 ◄ - PRINT SCORE 

NEXT C 

PRINT “PROBABILITY’S C1/1000# C2/1000# C3/100©#C4/1000 
END 


FINAL 

RESULTS 


Look at the program. Suppose the computer randomly 
generates the number 3, as instructed in line 20. Which 
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outcome does 3 represent? Now play computer. Which 
counter is increased by 1? So much for the program. 
Here is a typical run. 


TOSSES 

TAIL TAIL 

TAIL HEAD 

HEAD TAIL 

HEAD HEAD 

100 

19 

34 

18 

29 

200 

42 

56 

49 

53 

300 

71 

81 

71 

77 

400 

105 

99 

97 

99 

500 

124 

124 

127 

125 

600 

152 

147 

150 

151 

700 

169 

179 

179 

173 

800 

203 

198 

208 

191 

900 

221 

223 

239 

217 

1000 

246 

248 

260 

246 

PROBABILITY 

.246 

• 248 

• 26 

.246 


Look at the last line of the output. The results are close 
to the theoretical probabilities. Using the known prob¬ 
abilities of the outcomes is just as good as “tossing” 
two coins. Either approach works. 

Here is a schematic representation of the two simula¬ 
tion programs. 



In the first program, TWO COIN/IOOO/EXPER, the 
random number generator, RND(X), is used at two 
stages. In TWO COIN/IOOO/THEORET it’s used only 
once, but selects from four numbers. Both methods 
have their place in real life. The multiple stage approach 
is used when, because of the complexity of the system, 
the theoretical probabilities of the final outcomes are not 
known and are virtually impossible to calculate. The 
analysis of a complex traffic network is an example. 
The probability of a car turning left, right or going 
straight ahead at each of several hundred intersections 
might be known from direct measurement. You’re in¬ 
terested, however, in the overall impact on a bridge, 
tunnel, or other exit from the network. 
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The second, single stage method is used when, based 
on experience or theory, you know the probabilities of 
the final outcomes, and may be interested for example 
in betting on the outcome one trial at a time. 

At this point both programs are about the same 
length. TWO COIN/IOOO/EXPER has 25 steps and 
TWO COIN/lOOO/THEORET has 23. The program 
which uses the known probabilities of the final out¬ 
comes, e.g. TWO COIN/lOOO/THEORET, has an ad¬ 
vantage, however, in that a subscripted variable can be 
used to set up a tally list replacing the four counters, C1, 
C2, C3, and C4. This will give us a program of only 14 
steps, 11 steps shorter than TWO COIN/IOOO/EXPER! 
Recall the use of a tally list when programming the 
computer to play 1000 COMPUTER GUESS games at 
the end of Chapter 3. This time four boxes will be set up 
in the computer’s memory to replace the four counters, 
and labeled as follows: 

F(l) holds the frequency of TAIL TAIL outcomes. 
F(2) holds the frequency of TAIL HEAD outcomes. 
F(3) holds the frequency of HEAD TAIL outcomes. 
F(4) holds the frequency of HEAD HEAD outcomes. 


F( 1) 

F(2) 

F(3) 

F(4) 

0 

0 

0 

0 


At the outset, the value in each box will be zero. When 
LETR = INT(4*RND(X))+ 1 is executed and a value 
for R is generated, say 2, a TAIL HEAD has occurred. 
The counter F(2) is increased by 1. We do not need three 
IF-THEN statements to find out what R is. We go on to 
the next step, LET F(R) = F(R) +1. Here is the flow 
chart for TWO COIN/1000/TALLY. 



TWO COIN/1000/TALLY 
FLOWCHART 
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PROGRAM 


The following program is encoded from this flow chart. 


INITIALIZE 

TALLY 

LIST 


1000 

TRIALS 


1 RANDOM 

2 DIM FC4) 

r 5 FOR 1*1 TO 4 
6 LET F<I)*0 
L ? NEXT I 

9 PRINT "TOSSES","TAIL TAIL","TAIL READ","HEAD TAIL","HEAD HEAD" 
10 FOR C=1 TO 1000 
20 LET R*INT(4*RND< X)) + 1 

30 LET F( R) *F ( R) + 1 < - TALLY STATEMENT 

40 IF INT<C/100)<>C/100 THEN 60 
50 PRINT C,F<1),F(2>,F<3>,FC4) 

40 NEXT C 

70 PRINT "PROBABILITY”,F(1 > / 1 000, F< 2) / 1 000, F< 3> / 1000, F< 4> / 1000 
80 END 


Look at line 2. The DIM statement is used to save four 
boxes for the subscripted variable. Now a zero must be 
put in each of the four boxes. This is done in lines 5,6, 
and 7. The variable I is used to designate the box 
number, and I takes on the values 1 to 4. 

Suppose the values of the counters in the computer’s 
memory are 


c 

F(l) 

F(2) 

F(3) 

F(4) 

200 

48 

47 

51 

53 


as the computer approaches trial 200. Trial 200 begins 
and the computer generates a 4 for R in line 20. Play 
computer. Add 1 to the proper counter and proceed to 
line 40. Where do you go from there? To verify that the 
program operates as intended, here is a typical run. 

OUTPUT 


TOSSES 

TAIL TAIL 

TAIL HEAD 

HEAD TAIL 

HEAD HEAD 

100 

22 

27 

28 

23 

200 

51 

57 

49 

43 

300 

80 

80 

79 

61 

400 

103 

106 

94 

97 

500 

129 

135 

111 

125 

600 

152 

163 

136 

149 

700 

176 

190 

159 

175 

800 

204 

213 

185 

198 

900 

223 

234 

211 

232 

1000 

255 

253 

239 

253 

PROBABILITY 

• 255 

• 253 

• 239 

• 253 


So much for the use of the subscripted variable and 
tally list in a two-coin simulation. The same set of 
outcomes can be obtained by spinning a Big Wheel 
divided into four equal sections and labeled as follows. 
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To simulate the use of the above wheel, instruct the 
computer to generate at random a 1, 2, 3 or 4, each 
number corresponding to one of these two-coin out¬ 
comes. 


■■■■■■■■I EXERCISE SET 6.2 ■■■■■ 

Off-line: 

1. Draw a flow chart for tossing three coins 20 times. 
Your flow chart will have eight branches. 

2. Write a three-loop program to simulate the tossing 
of three coins 20 times, imitating the procedure used 
in TWO COIN/20/2-LOOP. 

3. Draw a tree diagram to show all the possible out¬ 
comes when three coins are tossed. Label each 
branch with its probability. Determine the outcome 
obtained at the end of each branch. Find the proba¬ 
bility of each outcome by multiplying the prob¬ 
abilities along each branch. 

On-line: 

4. Write a program which uses the theoretical prob¬ 
abilities determined in exercise 3 above to generate, 
trial by trial, the outcomes when three coins are 
tossed 800 times. Your program should imitate the 
procedure used in TWO COIN/1000/TALLY and 
produce an output similar to this one: 


TOSSES 

TTT 

TTH 

THT 

TKH 

HTT 

HTH 

HKT 

HHH OUTPUT 

100 

14 

11 

14 

13 

10 

13 

12 

13 

200 

30 

21 

26 

32 

21 

21 

24 

25 

300 

45 

34 

43 

46 

34 

27 

36 

35 

400 

53 

46 

56 

55 

47 

42 

53 

48 

500 

63 

59 

66 

68 

59 

53 

67 

65 

600 

76 

68 

83 

84 

66 

68 

77 

78 

700 

83 

85 

90 

100 

73 

78 

92 

94 

800 

101 

99 

98 

112 

86 

93 

104 

107 


6.3 THE TWO COIN GAME 

In this section you will modify an old program, BIG 
WHEEL/FLAG 99, to play a new game called TWO 
COIN. The game is played as follows. The computer 
flips two coins and gives the player a chance to bet on 
the number of heads. From the previous section, the 
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four outcomes and their probabilities are: 

Outcome Number of Heads Probability 


HEAD 

HEAD 

2 

1/4 

HEAD 

TAIL 

1 

1/4 

TAIL 

HEAD 

1 

1/4 

TAIL 

TAIL 

0 

1/4 


The total number of heads is either 2, 1, or 0. The 
probability of 2 heads is 1/4, of 1 head 1/2 and of 0 heads 
1/4. The player picks either 2, 1 or 0 heads. TJie compu¬ 
ter compares the player’s input with its outcome to 
determine whether the player has won or lost. 

Look at the above table and complete the following 
table of payoff factors for each outcome. 


OUTCOME 

NUMBER WAYS 

NUMBER WAYS 

PAYOFF 

NUMBER OF HEADS 

TO WIN 

TO LOSE 

FACTOR 

2 

1 

0 

1 

3 

3 


The game TWO COIN is just like playing BIG WHEEL 
using the wheel shown here. 



Since the game TWO COIN can be played with the 
above wheel, this suggests that the program for TWO 
COIN could be similar in structure to the program for 
BIG WHEEL. Let’s look at a copy of BIG WHEEL/ 
FLAG 99. 
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PROGRAM 


BIG WHEEL/FLAG 99 


MAIN 

PROGRAM 


SPIN 

WHEEL 


FLAG 99 


—10 RANDOM 

15 PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 1*2# 3* 4." 
20 LET M»100 

30 PRINT "YOU HAVE" M "DOLLARS TO PLAY WITH." 

40 PRINT "PICK 1*2*3*4"J 

50 INPUT N 

51 60 SUB 300 
60 PRINT "BET"J 
70 INPUT B 

80 60 SUB 200 
90 PRINT "STOPPED AT" W 
100 IF N*W THEN 150 
110 PRINT "YOU LOSE S" B 
120 LET M*M-B 

130 PRINT "YOU NOW HAVE" M "DOLLARS." 

140 60 TO 40 

150 PRINT "YOU WIN S" P*B 
160 LET M*M+P*B 

170 PRINT "YOU NOW HAVE" M "DOLLARS." 

.180 60 TO 40 

“200 LET R*INT<9*RND(X))♦1 
205 IF R<*3 THEN 265 

210 IF R<*6 THEN 250 

215 IF R<»8 THEN 235 

220 LET W*4 
225 LET P»8 
230 RETURN 
235 LET W*3 
240 LET P*3.5 
245 RETURN 
250 LET W*2 
255 LET P»2 
260 RETURN 
265 LET W*i 
270 LET P«2 
.275 RETURN 
"300 IF N-99 THEN 310 
305 RETURN 

310 PRINT "HOPE YOU HAD FUN. COME BACK SOON." 

.315 STOP 
999 END 


What changes would you make in BIG WHEEL/FLAG 
99 to make it play the game of TWO COIN, producing 
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TWO COIN an output that looks like this? 

OUTPUT IF you WISH TO QUIT, TYPE 99 AFTER PICK 0, 1,2,HEADS 
YOU HAVE 100 DOLLARS TO PLAY WITH. 

PICK 0,1,2,HEADS? 1 
BET? 10 
HEAD HEAD 

NUMBER OF HEADS IS 2 
YOU LOSE S 10 
YOU NOW HAVE 90 DOLLARS. 

PICK 0,1,2, HEADS? 1 
BET? 20 
HEAD HEAD 

NUMBER OF HEADS IS 2 
YOU LOSE S 20 
YOU NOW HAVE 70 DOLLARS. 

PICK 0,1,2,HEADS? 1 
BET? 40 
HEAD TAIL 

NUMBER OF HEADS IS 1 
YOU WIN S 40 

YOU NOW HAVE 110 DOLLARS. 

PICK 0,1,2,HEADS? 1 
BET? 20 
TAIL HEAD 

NUMBER OF HEADS IS I 
YOU WIN S 20 

YOU NOW HAVE 130 DOLLARS. 

PICK 0,1,2*HEADS? 99 
HOPE YOU HAD FUN. COME BACK SOON. 

As in the past, we could draw a new flow chart as a 
guide to setting up the new program, but you are suffi¬ 
ciently experienced now to use the program BIG 
WHEEL/FLAG 99 as a guide. First we’ll make the 
necessary changes in the main program of BIG 
WHEEL/FLAG 99. Only four changes are required: 

(1) Since the new game is a coin game in which the 
player is betting on 0, 1, or 2 heads, the instruction 
in line 15 must be changed. Replace 15 PRINT “IF 
YOU WISH TO QUIT, TYPE 99 AFTER PICK 1, 
2, 3, 4” with 15 PRINT “IF YOU WISH TO 
QUIT, TYPE 99 AFTER PICK 0,1,2 HEADS. ’’ 

(2) Replace 40 PRINT “PICK 1,2,3,4”; with 40 
PRINT “PICK 0,1,2,HEADS”;. 

(3) In BIG WHEEL the computer tells the player the 
number, W, at which the wheel stops. Similarly in 
TWO COIN, it must tell him the number of heads, 
H, that occurred. H should be given a value in the 
COIN TOSS subroutine. Replace 90 PRINT 
“NUMBER IS” W with 90 PRINT “NUMBER 
OF HEADS IS” H. 

(4) To compare the number of heads guessed by the 
player with the number of heads obtained by the 
computer, replace 100 IF W = NTHEN 150 with 
100 IF H = N THEN 150. Here is the main pro¬ 
gram from BIG WHEEL/FLAG 99 with the 
foregoing changes. The arrows point to altera¬ 
tions. 


GAME 1 


GAME 2 


GAME 3 


GAME 4 
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MAIN PROGRAM TWO COIN 

10 RANDOM 

—►15 PRINT "IF TOU WISH TO QUIT# TYPE 99 AFTER PICK 0#1# 2# READS" 
20 LET M*100 

30 PRINT "TOU HAUE" M "DOLLARS TO PLAT WITH." 

—►40 PRINT "PICK 0#1# 2#READS"! 

50 INPUT N 

51 GO SUB 300 
60 PRINT "BET"! 

70 INPUT B 
80 GO SUB 200 

—►90 PRINT "NUMBER OF READS IS" K 
—►100 IF H*N THEN 150 

110 PRINT "TOU LOSE $" B 
120 LET M»M-B 

130 PRINT "TOU NOW HAUE" M "DOLLARS#" 

140 GO TO 40 

150 PRINT "TOU WIN $" P*B 
160 LET M*M+P*B 

170 PRINT "TOU NOW rlA7S" M "DOLLARS." 

180 GO TO 40 

So much for the changes in the main program. Now to 
make the necessary changes in the “spin wheel” sub¬ 
routine. Since the TWO COIN game is based on four 
equally likely outcomes, HH, HT, TH, TT, you want to 
change the wheel from nine sections to four sections. 

First, line 200 must be replaced by: 200 LET 
R = INT(4*RND(X))+1, which generates one of the 
whole numbers 1, 2, 3 or 4. Next we want to assign to 
each of the four numbers one of the outcomes. Here is 
one way to do it: 

R OUTCOME 

1 TT 

2 TH 

3 HT 

4 HH 

Having generated one of the numbers 1, 2, 3 or 4, the 
computer must find out which number was generated. 

This requires three IF-THEN statements. 

205 IF R = 1 THEN_ 

210 IF R = 2 THEN_ 

215 IF R = 3 THEN_ 

220 

If the computer falls through to line 220, R is 4, and the 
outcome must be HEAD HEAD. 

As we do in writing a program from a flow chart, we 
encode one branch at a time. Because there are four 
outcomes, there will be four branches. Let’s start with 
the branch/outcome R = 4, or HH. To tell the player 
the outcome of the toss, add this print statement: 

220 PRINT “HEAD HEAD” 

In order to compare the player’s guess, the input on line 
50, with the outcome of the toss, the number of heads 
obtained on the toss is represented by the variable H in 
the following new line: 

225 LET H = 2 
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The next step is to set the payoff factor, P, at 3. 

230 LET P = 3 
To finish the branch you write: 

235 RETURN 

To sum up, lines 220 to 235 below comprise the HH 
branch of the COIN TOSS, ex-SPINWHEEL, sub¬ 
routine. You can fill in the steps for the other three 
branches. I’ll give you some hints. 


DETERMINE R 


HH BRANCH 


HT BRANCH 


TH BRANCH 


200 

“205 

210 

_215 

220 
225 
230 
_ 235 
“240 
245 
250 
_ 255 
"260 
265 
270 
_ 275 

r 280 


TT BRANCH 


285 

290 

_295 


LET R = INT(4*RND(X))+1 

IF R = 1 THEN_ 

IF R = 2 THEN_ 

IF R = 3 THEN_ 

PRINT “HEAD HEAD” 
LET H = 2 
LET P = 3 
RETURN 

PRINT “_” ♦ 

LET H =_ *- 

LET P =_ «- 

RETURN 

PRINT “_”♦ 

LET H -_ 

LET P =_ 

RETURN 

PRINT “_”♦ 


LET H = 
LET P = 
RETURN 


OUTCOME IF R = 3 
NUMBER OF HEADS 
PAYOFF FACTOR — 
LOOK AT TABLE 

OUTCOME IF R = 2 


OUTCOME IF R = 1 


Did you fill in the blanks in the IF-THEN statements? 
Your completed COIN TOSS subroutine should look 
like this: 


COIN TOSS 
SUBROUTINE 


299 LET R«INTC4*RND<X> > + l 



205 

IF R*1 

TrIEN 

230 

DETERMINE R 

210 

IF R *2 

THEN 

260 


—215 

IF R*3 

TrtEN 

240 


\~220 

PRINT 

"READ 

READ" 


HH BRANCH 


HT BRANCH 


TH BRANCH 


BRANCH 


235 LET H*2 
230 LET P»3 

I_235 RETURN 

240 PRINT ••HEAD TAIL’* 
245 LET N«1 
250 LET P»l 

I_255 RETURN 

260 PRINT "TAIL HEAD" 
265 LET H«1 
270 LET P»1 

I_275 RETURN 

230 PRINT "TAIL TAIL" 
235 LET H*0 
290 LET P»3 
l_295 RETURN 
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So much for the alterations. Now attach the new 
COIN TOSS subroutine to the revised main program. 
This gives us the new program, which I’ll call TWO 
COIN/FLAG 99. 


PROGRAM 


TWO COIN /FLAG 99 


i—10 


MAIN 

PROGRAM 


15 

20 

30 

40 

50 

51 
60 
70 
80 
90 

100 

110 

120 

130 

140 

150 

160 

170 


COIN 

TOSS 


FLAG 99 


Ll80 

"200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

230 

235 

290 

_295 

"300 

305 

310 

-315 

999 


RANDOM 

PRINT "IF YOU WISH TO QUIT# TYPE 99 AFTER PICK 0#1#2#HEADS" 
LET M>100 

PRINT "YOU RAVE" M "DOLLARS TO PLAT WITH." 

PRINT "PICK 0#1#2#READS"! 

INPUT N 

GO SUB 300 *- ACTIVATE 99 

PRINT "BET"; 

INPUT B 

GO SUB 200 «- ACTIVATE COIN TOSS 

PRINT "NUMBER OF READS IS" R 
IF R*N THEN 150 
PRINT "YOU LOSE $" B 
LET M»M-B 

PRINT "YOU NOW HAVE" M "DOLLARS." 

GO TO 40 

PRINT "YOU WIN S" P*B 
LET M«M+P*B 

PRINT "YOU NOW HAi/B" M "DOLLARS." 

GO TO 40 

LET RsINT< 4*RND(X>>*1 
IF Rsl TREN 230 
IF R*2 TREN 260 
IF R*3 TREN 240 
PRINT "READ READ" 

LET H*2 
LET P*3 
RETURN 

PRINT "READ TAIL" 

LET Rsl 
LET P*l 
RETURN 

PRINT "TAIL READ" 

LET R*1 
LET Psl 
RETURN 

PRINT "TAIL TAIL" 

LET Rs0 
LET P*3 
RETURN 

IF N»99 TREN 310 
RETURN 

PRINT "ROPE YOU RAD FUN. COME BACK SOON." 

STOP 

END 
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Here is a typical run of this program. 


GAME 1 


GAME 2 


IF YO f J WISH TO QUIT/ TYPE 99 AFTER PICK 0/1/2/HEADS 
YOU HAVE 100 DOLLARS TO PLAY WITH* 

“PICK 0/1/2/HEADS? 2 
SET? 10 
HEAD TAIL 

NUMBER OF HEADS IS 1 
YOU LOSE S 10 

_YOU NOW HAVE 90 DOLLARS. 

PICK 0/1/2/HEADS? I 
SET? 20 
TAIL TAIL 

NUMBER OF HEADS IS 0 
YOU LOSE S 20 

_YOU NOW HAWE 70 DOLLARS. 

PICK 0/ 1/2/HEADS? 99 

HOPE YOU HAD FUN. COME BACK SOON. 


EXERCISE SET 6.3 


On-Line: 

1. Take the program TWO COIN/FLAG 99 and mod¬ 
ify it as follows: 

A. Add a subroutine to make sure the player typed 
in 0, 1, or 2 for the number of heads. 

B. Add a subroutine to make sure the bet (a) does 
not exceed his bankroll, (b) is not a negative 
amount, and (c) is a whole number of dollars. 

C. Add a subroutine to determine if the player lost 
all his money. 

D. Add a subroutine to give instructions. 

E. Add personality to your program. Make sure it 
has a good layout or format. 

F. Document your program using REM state¬ 
ments. 


6.4 TEACHING THE COMPUTER TO ROLL A DIE 

The die is a clever, portable little device for generat¬ 
ing at random six equally likely outcomes. Each of the 
six faces has a different number of dots on it; the number 
of dots ranges from 1 to 6. To simulate the rolling of a 
die, instruct the computer to generate at random a 
number between 1 and 6. Here is a program that simu¬ 
lates the rolling of a die 20 times. 
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1 RAMDOM PROGRAM 

10 FOR Ol TO 20 
20 LET R»INT< 6*RND( X) > ♦ l 
30 PRINT "I ROLL** R 
■40 NEXT C 
50 END 

As we did with a coin, let’s calculate the theoretical 
probability of each outcome. There are six possible 
outcomes, 1,2, 3, 4, 5, or 6, and each is just as likely to 
occur as any other. The theoretical probability of any 
particular number occurring on the roll of a die is there¬ 
fore 1/6 or.1666667 (correct to 7 decimal places).To 
check the accuracy of our computer simulation, let’s 
roll a die 1000 times and keep track of the frequency of 
occurrence of 1, 2, 3, 4, 5, and 6. We’ll divide each 
frequency by 1000 and compare the result to the theoret¬ 
ical probability of each outcome. The programming 
technique to be used here, the tally list, was used earlier 
in TWO COIN/1000/TALLY. 

To count the numbers of l’s, 2’s, 3’s, 4’s, 5’s, and 
6’s as they occur, we will set aside at the start of the 
program six storage boxes labeled and initialized as 
follows: 


20 ROLLS 


ONE DIE/20 

I ROLL 4 OUTPUT 
I ROLL 2 
I ROLL 4 
I ROLL 5 
I ROLL 3 
I ROLL 3 
I ROLL 4 
I ROLL 5 
I ROLL 3 
I ROLL 5 
I ROLL 3 
I ROLL 6 
I ROLL 6 
I ROLL 6 
I ROLL 1 
I ROLL 4 
I ROLL 3 
I ROLL 5 
I ROLL 5 
I ROLL 5 


F(l) 

F(2) 

F(3) 

F(4) 

F(5) 

F(6) 

0 

0 

0 

0 

0 

0 


The box F(l) contains the frequency with which 1 has 
occurred; the box F(2) contains the frequency with 
which 2 has occurred; etc. Each time a “roll” occurs 
(the equivalent of picking at random a number between 
1 and 6), the computer is instructed to add 1 to the box 
representing the outcome. If R is the number generated, 
then the statement LET F(R) = F(R) + 1 causes 1 to 
be added to the appropriate box. Here is a flow chart of 
this procedure. 


In the flow chart, the first step, INITIALIZE TALLY 
LIST, instructs the computer to put zeros in all the 
boxes. In the following program the DIM statement in 
line 2 tells the computer to set aside six boxes for the 
tally list. Initialization is accomplished by a loop 
between lines 3 and 5, in which I holds a place for 
the value of the subscript. Any other letter could have 
been used. 


ONE DIE/1000 
FLOW CHART 
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PROGRAM 

INITIALIZE TALLY LIST 

1000 ROLLS 

PRINT RESULTS I 


TWO DICE/20 


Look at the second loop. After the computer rolls the 
die one thousand times, the second loop is satisfied and 
the computer drops to line 50 which prints the column 
headings. The boxes now contain the total frequencies 
for each outcome. The third loop, between lines 60 and 
80, prints the frequencies one box at a time. Here is the 
program followed by a typical run. 


1 RANDOM 

2 DIM F(6) 

“3 FOR 1*1 TO 6 
A LET F<I>»0 
_5 NEXT I 
10 FOR C*1 TO 1000 
20 LET R»INT<6*RND<X>>*1 

30 LET FC R) *F< R) ♦ 1 ◄- TALLY STATEMENT 

40 NEXT C 

50 PRINT M DIE NUMBER’S "FREQUENCE"* M PROBABILITY" 

60 FOR 1*1 TO 6 

70 PRINT I«P(1)«F(1)/1000 

30 NEXT I 

90 END 

OUTPUT DIE NUMBER FREQUENCY PROBABILITY 


1 

153 

• 153 

2 

174 

• 174 

3 

157 

• 157 

4 

162 

• 162 

5 

179 

• 179 

6 

170 

• 17 


Look at the output. Each of the numbers in the probabil¬ 
ity column is close to the theoretical probability of 
.1666667. We conclude that the program ONE 
DIE/1000 can closely approximate the theoretical prob¬ 
abilities of the six outcomes of a die. 


6.5 ROLLING TWO DICE 

An easy way to produce a more complex set of 
outcomes is to roll two of our handy, portable random 
number generators, or dice. What are the possible out¬ 
comes? The outcome of the first die is one of the 
numbers 1, 2, 3, 4, 5, 6. Likewise the outcome of the 
second die is any one of the same six numbers. Without 
much fanfare or explanation here is a program to simu¬ 
late the rolling of two dice 20 times, printing the out¬ 
come after each roll. The random number generator is 
used twice, in lines 20 and 30, once for each die. In line 
40 the outcome is printed. 


PROGRAM 


20 ROLLS 


1 RANDOM 

—10 FOR C*l TO 20 

20 LET D1*1NT(6*RND(X)) ♦ 1 
30 LET D2*INT<6*RND(X))♦I 
40 PRINT "I ROLL** Dt f, AND M 

_50 NEXT C 

60 END 


D2 
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I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 
I ROLL 


ROLL 

ROLL 

ROLL 

ROLL 

ROLL 

ROLL 


AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 


OUTPUT 


1ST DIE 


2ND DIE 


START 


Look at the output. Does it show all the possible out¬ 
comes? No. How many outcomes can there be? To list 
all the possible outcomes draw a tree diagram which 
looks like this. 


Constructing a tree diagram showing the 36 possible 
outcomes of rolling two dice is a tedious task. Building 
one to list all possible outcomes of rolling three or more 
dice is just too much to ask of a human. But it’s a good 
job for our dumb friend, the computer. The following 
short program instructs the computer to list the 36 pos¬ 
sible outcomes of rolling two dice. The procedure fol¬ 
lowed by the computer parallels the procedure I used 
when I constructed the tree diagram: (1) The computer 
records one of the six possible outcomes of rolling the 
first die, then generates each of the six possible out¬ 
comes to be obtained with the second die. (2) It then 
records another one of the six possible outcomes of 
rolling the first die, and generates the six possible out¬ 
comes to be obtained with the second die. And so on. 
This procedure suggests two loops, one for the first die 
and another for the second. The first loop assigns a 
sequence of numbers, 1 to 6, to the first die. 

10 FOR D1 = 1 TO 6 



OUTCOME 

1 and 1 
1 and 2 
1 and 3 
1 and 4 
1 and 5 

1 and 6 

2 and 1 
2 and 2 
2 and 3 
2 and 4 
2 and 5 

2 and 6 

3 and 1 
3 and 2 
3 and 3 
3 and 4 
3 and 5 

3 and 6 

4 and 1 
4 and 2 
4 and 3 
4 and 4 
4 and 5 

4 and 6 

5 and 1 
5 and 2 
5 and 3 
5 and 4 
5 and 5 

5 and 6 

6 and 1 
6 and 2 
6 and 3 
6 and 4 
6 and 5 
6 and 6 




50 NEXT D1 


We put the second loop inside the first loop. It generates 
a sequence of numbers, 1 to 6, for the second die each 
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TWO DICE/OUTCOMES 


time a new number is assigned to the first die. The 
nested loops look like this. 

10 FOR D1 = 1 TO 6 
20 FOR D2 = 1 TO 6 

• 

• 

40 NEXT D2 
50 NEXT D1 

Inside both loops we insert a PRINT statement to tell us 
the values of D1 and D2 at that point. Here’s the com¬ 
plete program. 


PROGRAM 5 PRINT "DIE PS 
10 FOR Dl»l TO 6 
20 FOR 02*1 TO 6 
30 PRINT D1#D2 
40 NEXT D2 
50 NEXT D1 
60 END 


DIE 1 


DIE 

2 


••DIE 2* # 


OUTPUT DIE 
1 
1 
1 
1 
1 
1 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
5 

5 

6 
6 
6 
6 
6 
6 


DIE 

1 

2 

3 

4 

5 

6 
1 

2 

3 

4 

5 

6 
1 
2 

3 

4 

5 

6 
1 
2 

3 

4 

5 

6 
1 

2 

3 

4 

5 

6 
1 
2 

3 

4 

5 

6 


2 


To sum up, no matter how you generate the list, there 
are 36 possible outcomes. Since the 36 outcomes are 
equally likely to occur, the probability of any one is 
1/36. This probability of the complex outcome, that is 
1/36, can also be obtained by multiplying the probabil¬ 
ity of any outcome of one die, that is 1/6, by the 
probability of any outcome of the second die, which is 
also 1/6. 

In many dice games the sum of the dice is the focal 
point, not the individual outcomes of each die. What are 
the possible sums when two dice are rolled? Look at 
either the tree diagram or the computer-generated list 
and find the sum of each pair of numbers. The following 
table is a compact way to record the sum of each pair. 
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DIE 1 


DIE 2 


Better yet, modify TWO DICE/OUTCOMES to find 
the sum of D1 and D2. Insert 25 LET S= D1 + D2, 
and add the column heading SUM to line 5, and the 
variable S to line 30. 

PROGRAM 

5 PRINT "DIE I"#"DIE 2"#"SUN" 

-10 FOR Dl* 1 TO 6 

r 20 FOR D2»l TO 6 DIE 1 

DIE DIE ^5 LET S*D1+D2 | 

1 2 30 PRINT Dl*D2*S I 

L 40 NEXT D2 1 

-50 NEXT Dl 1 

60 END 1 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
5 

5 

6 
6 
6 
6 
6 
6 



TWO DICE/SUM 
OUTPUT 


DIE 2 SUN 

1 2 

2 3 

3 4 

4 5 

5 6 

6 7 

1 3 

2 4 

3 5 

4 6 

5 7 

6 3 

1 4 

2 5 

3 6 

4 7 

5 3 

6 9 

1 5 

2 6 

3 7 

4 3 

5 9 

6 10 

1 6 

2 7 

3 3 

4 9 

5 10 

6 11 

1 7 

2 3 

3 9 

4 10 

5 1 1 

6 12 
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HELP 
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Look at either the table or output of TWO DICE/SUM. 
The different sums are: 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, or 
12. Two is the sum of 1 and 1, better known as “snake 
eyes.” Twelve is the sum of 6 and 6, also known as 
“box cars.” We now determine the probability of each 
sum. 

What is the probability of rolling a sum of 2? Look at 
the table and count the number of times 2 occurs. The 
sum 2 occurs only once. Since there are 36 possible 
outcomes, the probability of a sum of 2 is 1/36. What is 
the probability of rolling a 5? Look at the table and count 
the number of times 5 occurs. The sum 5 occurs four 
times out of 36. The probability of a sum of 5 is 4/36. To 
find the probability of the other sums, make a frequency 
table listing the different sums and the number of times 
each occurs. It will look like this. 

Sum Frequency Probability 

- 2 - 1 - 

3 2 

4 3 

5 4 

6 5 

7 6 

8 5 

9 4 

10 3 

11 2 

12 1 

In the third column of the above table, enter as a fraction 
the probability of each sum. Generally, the probability 
of an outcome is expressed as a decimal number be¬ 
tween 0.0 and 1.0. Convert the above fractions to deci¬ 
mals, with the help of the computer. Here is a program 
that performs the necessary calculations, giving an¬ 
swers correct to seven decimal places. 

PROGRAM 5 PRINT "NUMBER”*"NUMBER/36 ## 

10 FOR C«1 TO 6 
20 PRINT C*C/36 
30 NEXT C 
40 END 


OUTPUT NUMBER 

1 

2 

3 

4 

5 

6 


NUMBER/36 
.02777778 
.05555556 
.08333333 
.1111111 
.1388889 
.1666667 


The sums, frequencies, and associated probabilities are 
summarized in the following table. 
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Sum 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


Frequency 

1 

2 

3 

4 

5 

6 
5 
4 
3 
2 
1 


Probability 
1/36 or .02777778 
2/36 or .05555556 
3/36 or.08333333 
4/36 or .1111111 
5/36 or .1388889 
6/36 or .1666667 
5/36 or .1388889 
4/36 or . 1111111 
3/36 or .08333333 
2/36 or .05555556 
1/36 or .02777778 


This table can be produced entirely by the computer if 
we further modify the program TWO DICE/SUM. 

TWO DICE/SUM already lists the 36 possible combina¬ 
tions of two dice and the sum of each. We only need to 
add a routine to compute the frequency with which each 
sum occurs, and the decimal probability of each sum 
occurring. Here is TWO DICE/SUM, showing the two 
loops that generate the die values. 

5 PRINT "DIE I","DIE 2","SUM" PROGRAM TWO DICE/SUM 

10 FOR Dl-1 TO 6 
20 FOR D2*l TO 6 
25 LET S-D1+D2 
30 PRINT DUD2/S 
40 NEXT D2 
50 NEXT D1 
60 END 

First, change the column headings by replacing line 5 
with 5 PRINT “SUM”, “FREQUENCY”, “PROB¬ 
ABILITY”. Next, pull out line 30 and replace it with a 
line which keeps track of the sum obtained in line 25. 

The line looks like this: 30 LET F(S) = F(S)+1 
What we have done is to set up, once again, a tally list in 
the computer. The tally list used here looks like this. 


DIE 1 


DIE 

2 


F(l) 

F(2) 

F(3) 

F(4) 

F(5) 

F(6) 

F(7) 

F(8) 

F(9) 

F(10) 

F(11) 

F(12) 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


In this program, however, since no sum of two dice is 
ever 1, we’ll not use the box labelled F(l). When you 
use a subscripted variable to set up a tally list, you need 
a DIM statement and an initializing loop. The DIM 
statement instructs the computer to set aside the re¬ 
quired number of “boxes.” In this case, you need 
twelve boxes. The DIM statement looks like this: 1 DIM 
F(12). The loop to initialize the contents of the 12 boxes 
at zero looks like this: 

2 FOR I = 1 TO 12 

3 LET F(I) = 0 

4 NEXT I 
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TWO DICE/SUM/REVISED 


So far our revised program looks like this: 


PROGRAM l 

-2 


INITIALIZE TALLY LIST 




DIE 1 


DIE 

2 


3 

4 

5 
10 
20 
25 
30 

1-40 

50 

60 


Dirt F<12) 

FOR 1*1 TO 12 
LET FCI)*0 
NEXT I 

PHI NT M S r Jrt , S "FREQUENCY'S "PROBABILITY" 
FOR Dl*l TO 6 
FOR D2*i TO 6 

LET S*D1+D2 rt- CALCULATE SUM 

LET FC S) *FC S) + 1 M- TALLY STATEMENT 

NEXT D2 
NEXT D1 
END 


TWO DICE/TABLE 


PROGRAM 1 
2 

INITIALIZE TALLY LIST | 3 

4 

5 




DIE 1 


II 


DIE 

2 


OUTPUT LOOP 


r-20 

25 
30 
40 
50 
60 
70 
80 
90 




Finally, after the 36 outcomes have been generated and 
the two loops are satisfied, another loop must be added 
to output the new results: sum, frequency, and probabil¬ 
ity. Remember no sum is 1; therefor S starts at 2. 

60 FOR S = 2 TO 12 
70 PRINT S, F(S), F(S)/36 
80 NEXT S 

Here is the fully revised program to produce the table. 

DIM FC12) 

FOR I-i TO 12 
LET FCI)*0 
NEXT I 

PRINT ••SUM’S M FREQUENCE'S M PR0BABIL1 TY* f 
FOR Dl* 1 TO 6 
FOR D2* 1 TO 6 

LET S*D1+D2 ◄- CALCULATE SUM 

LET FC S)»FC S> + 1 ◄- TALLY STATEMENT 

NEXT D2 
NEXT Dl 

FOR S*2 TO 12 < - S STARTS AT 2 

PRINT S*FCS)*FCS>/36 

NEXT S 

END 


OUTPUT SUM 
2 

3 

4 

5 

6 

7 

8 

9 

10 
1 1 
12 


FREQUENCE 

1 

2 

3 

4 

5 

6 
5 
4 
3 
2 
1 


PROBABILITY 
.02777778 
.05555556 
.08333333 
•1111111 
.1338339 
.1666667 
.1338889 
.1111111 
.03333333 
.05555556 
.02777773 


Look at the table. The numbers in the probability col¬ 
umn are all decimal numbers between 0 and 1. A craps 
shooter might find these difficult to memorize. How¬ 
ever, look in the frequency column. What is the pattern? 
The pattern is a sequence of numbers which starts at 1, 
counts to 6, and then counts back down to 1 again! This 
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pattern is easy to remember. We will look for the pattern 
1,2, 3,4, 5, 6,5,4, 3,2, 1 in the outputs of the next two 
programs. 

To this point, all we’ve done is use the computer as a 
tool to calculate the theoretical probabilities of the sums 
of two dice. Now that we know the probabilities, we are 
ready to roll two dice many times. 

As in the flipping of two coins, there are two ap¬ 
proaches to simulating the tossing of two dice. One 
approach is to generate at random the sums 2 through 12 
in proportion to their theoretical probability of occur¬ 
rence. A second way is to simulate the toss of each die 
separately, add the two results to obtain the sum, and 
repeat the process as many times as required. 

Write a program to simulate the tossing of two dice 
3600 times. In the first program, a rather long one, I will 
use the theoretical probabilities just determined to dic¬ 
tate the frequency of occurrence of the eleven different 
sums. Since all the sums are not equally likely, we 
cannot just generate the numbers 2 to 12 at random. 
Each of these numbers must occur with a frequency to 
reflect its probability. To help you visualize the scheme 
I will use, draw a Big Wheel and divide it into 36 equal 
sections. Each of the 36 sections will be numbered with 
one of the numbers 2 to 12. Each number, 2 to 12, will 
appear on the wheel as many times as indicated in the 
table above, e.g. there will be four sections numbered 5, 
five sections numbered 6, etc. 


Let’s write a subroutine which will cause each sum to 
occur with its corresponding probability. To do this we 
will assign each section of the wheel a number from 1 to 
36. 
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The computer will generate at random a section number 
between 1 and 36. Each section number will be assigned 
an outcome or sum as shown below. 


SECTION 

NUMBER _ SUM 

1 2 

2, 3 3 

4, 5, 6 4 

7, 8, 9, 10 5 

11, 12, 13, 14, 15, 6 

16, 17, 18, 19, 20, 21 7 

22, 23, 24, 25, 26 8 

27, 28, 29, 30 9 

31, 32, 33 10 

34,35 11 

36 12 


As the first step in the subroutine, a random number 
between 1 and 36 is generated. Call it R. R must then be 
tested to determine which sum it corresponds to. Ten 
IF-THEN statements will be needed to do this. Once the 
corresponding sum is found, it is designated S so that 
further operations can be performed in the main pro¬ 
gram. Here is the subroutine beginning at line 200. 


TWO DICE/3600/THEORET 
SUBROUTINE 
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200 

LET R»INT< 36»RND<X))♦1 

205 

IF R<»1 

THEN 

355 

210 

IF R<*3 

THEN 

345 

215 

IF R<*6 

THEN <335 

220 

IF R<* 10 

THEN 

325 

225 

IF R<*15 

THEN 

315 

230 

IF R<*21 

THEN 

305 

235 

IF R<»26 

THEN 

295 

240 

IF R<*30 

THEN 

235 

245 

IF R<*33 

THEN 

275 

250 

IF R<«35 

THEN 

265 

255 

LET S*12 



260 

RETURN 



265 

LET S*ll 



270 

RETURN 



275 

LET S*10 



260 

RETURN 



285 

LET S*9 



290 

RETURN 



295 

LET S*8 



300 

RETURN 



305 

LET S*7 



310 

RETURN 



315 

LET S«6 



320 

RETURN 



325 

LET S*5 



330 

RETURN 



335 

LET S»4 



340 

RETURN 



345 

LET S*3 



350 

RETURN 



355 

LET S«2 



360 

RETURN 
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Look at the subroutine. Suppose the computer generates 
R = 18. What is S? 

So much for the subroutine which generates a sum. 
Now for the main program which rolls the two dice 3600 
times, and tallies the frequency with which each sum 
occurs. A FOR-NEXT loop will be set up to limit the 
number of rolls to 3600: 

FOR C = 1 TO 3600 

NEXT C 

Next, to reach the subroutine, insert GO SUB 200 after 
the FOR statement. 

FOR C = 1 TO 3600 
GO SUB 200 
NEXT C 

When the computer completes the subroutine and re¬ 
turns to the main program with a value for S, we must 
have ready a tally list using the subscripted variable 
F(S). It looks like this: 


F(l) 






ESI 

F(8) 

F(9) 

F(10) 

F( 11) 

F(12) 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


To set this up, you must insert in the main program a 
DIM statement followed by a three-step initializing 
loop. To add 1 to the box which is recording the fre¬ 
quency of a sum, S, we insert after GO SUB 200, LET 
F(S) = F(S) + 1. 

FOR C = 1 TO 3600 
GO SUB 200 
LET F(S) = F(S) + 1 
NEXT C 

Let’s play computer. On the first roll, C = 1, the 
computer goes to the subroutine and gets the value of S, 
say 7. On returning to the main program, it goes to the 
box F(7) and adds 1 to the contents. Since this is the first 
roll, the frequency of a 7 is now 1. 

Here is the complete program with the RANDOM 
and DIM statements in lines 1 and 2. The initializing 
loop is in lines 3,4, and 5. When the C loop is complete, 
and 3600 sums have been generated and tallied, the 
results must be published. This is done in lines 50 to 80. 
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TWO DICB3600/THEORET 


PROGRAM t 
2 

r 3 

INITIALIZE TALLY LIST 4 
I— 5 

i — 10 

oa 

3600 ROLLS 30 

— 40 


PRINT RESULTS 


C 


50 

60 

70 

80 

90 

200 

205 

210 

215 

220 

225 

230 

235 

240 


SUBROUTINE 


245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
— 360 
999 


RANDOM 
DIM FC12) 

FOR I»1 TO 12 
LET F<I)*0 
NEXT I 

FOR C»1 TO 3600 
60 SUB 200 

LET F< S) *F< S> ♦ l — TALLY STATEMENT 
NEXT C 

PRINT M SUM OF DICE M >"FREQUENCr M 
FOR S»2 TO 12 
PRINT S#F(S) 

NEXT S 
STOP 

LET R*INT<36*RND<X)>+1 
IF R<»1 THEN 355 
IF R<*3 THEN 345 
IF R<»6 THEN 335 


IF 

R<* 10 

THEN 

325 

IF 

R<* 15 

THEN 

315 

IF 

R<*21 

THEN 

305 

IF 

R<*26 

THEN 

295 

IF 

R<»30 

THEN 

285 

IF 

R<»33 

THEN 

275 

IF 

R<»35 

THEN 

265 

LET S*12 




RETURN 
LET S»ll 
RETURN 
LET S a 10 
RETURN 
LET S*9 
RETURN 
LET S-8 
RETURN 
LET S»7 
RETURN 
LET S*6 
RETURN 
LET S=*5 
RETURN 
LET S*4 
RETURN 
LET S»3 
RETURN 
LET S*2 
RETURN 
END 
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Here is a typical run of the program. 


SUM 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 


OF DICE 


FREQUENCY OUTPUT 
88 
205 
284 
389 
489 
594 
479 
416 
320 
227 
109 


Look at the numbers in the frequency column. If you 
round off each number to the nearest hundred, the 
pattern looks like this: 

100 

200 

300 

400 

500 

600 

500 

400 

300 

200 

100 

This sequence recalls the pattern of theoretical frequen¬ 
cies for the sums 2 to 12: 1,2,3,4,5,6,5,4,3,2,1. Now 
you can understand my reason for selecting 3600 as the 
number of rolls. By selecting a number which is a 
multiple of 36, i.e. 3600, each number in the pattern of 
obtained frequencies will be close to 100 times the 
corresponding number in the pattern of theoretical fre¬ 
quencies. Suppose you selected 1800 as the number of 
rolls? Since 1800 is 36 times 50, the expected pattern is 
50, 100, 150, 200, 250, 300, 250, 200, 150, 100, 50. 

Now for the second program to simulate the sum of 
two dice when they are rolled 3600 times. In this pro¬ 
gram, we will “roll” each die separately, add the two 
outcomes, add 1 to the counter which is counting that 
sum, and perform the experiment again. We will use the 
theoretical probabilities of the outcomes 1 to 6, rather 
than the theoretical probabilities of the sums, 2 to 12. A 
subscripted variable, F(S), is used again to set up a tally 
list. 
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Here is the program. 


INITIALIZE TALLY LIST 


3600 ROLLS 


G 


TWO DICE/3600/EXPER PROGRAM 1 

2 

3 

4 

5 

10 
20 
30 
40 
50 

I_60 

70 
30 
90 
L100 
110 


PRINT RESULTS 


RANDOM 
DIM FC12) 

FOR 1*1 TO 12 
LET FCI)*0 
NEXT I 

FOR C*1 TO 3600 
LET D1*INTC6*RND(X>)+1 
LET D2*INTC 6*RNDCX> >♦1 
LET S*D1«-D2 

LET FC S) *FC S) ♦ 1 ◄- TALLY STATEMENT 

NEXT C 

PRINT M SUM OF DI CE ft # "FREQUENCY" 
FOR S*2 TO 12 
PRINT S*FC S) 

NEXT S 
END 


Here is a typical run. 


OUTPUT SOM OF DICE FREQUENCY 


2 

86 

3 

205 

4 

282 

5 

408 

6 

495 

7 

640 

8 

474 

9 

389 

10 

315 

1 1 

203 

12 

103 


Look at the frequency column. If you round off each 
number to the nearest hundred you obtain the pattern 

100 

200 

300 

400 

500 

600 

500 

400 

300 

200 

100 

The pattern of obtained frequencies approximates the 
pattern of theoretical frequencies. 

So much for teaching the computer to “roll” two 
dice. We’ve done this two ways. The first program, 
called TWO DICE/3600/THEORET, simulated the 
sum of two dice by using the random number generator 
to produce one of the whole numbers from 1 to 36. Each 
whole number was then associated with one of the 
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eleven sums, 2 to 12. The second program, called TWO 
DICE/3600/EXPER, simulated the sum of two dice by 
using the random number generator twice to produce a 
whole number from 1 to 6. The two whole numbers 
generated were then added to produce one of the sums 2 
to 12. Here is a schematic representation of the two 
simulation programs. 

TWO DICE/3600/THEORET TWO DICE/3600/EXPER 



the random number generator is used at two stages. 


In the next section you will write a program to play a 
popular game called “craps” in which the player bets 
on the sum of two dice “rolled” by the computer. In 
writing your program to play craps, which simulation 
routine would you use to obtain the sum on each roll? 
There are two reasons to use the two-stage routine. The 
routine is shorter, and it gives the player a look at both 
dice. 
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■■■■■■■■ EXERCISE SET 6.5 ■■■■■■■■ 

Off-line: 

1. Draw several branches of a tree diagram to indicate 
how you could list all the possible outcomes when 
you roll three dice. 

2. Use your tree diagram to: 

A. Determine the number of outcomes. 

B. Determine The theoretical probability of each out¬ 

come. 

C. Determine the range of numbers for the sum of the 

three dice. 

On-line: 

3. Write a program to: 

A. List all possible outcomes when you roll three dice. 

B. Find the sum of each possible outcome. 

C. Set up a tally list to count the numbers of times each 

sum occurs when all possible outcomes have 
been generated once. 

D. Print out a frequency table. 

For a hint on how to proceed, look at the program TWO 
DICE/TABLE. To analyze the frequency pattern, list 
the increments between successive frequencies. 

4. Now write a program which uses the random number 
generator to roll three dice many times, and lists the 
frequency of the different sums obtained. Then 
answer the following questions. 

A. Explain why you chose to roll the three dice as many 

times as you did. 

B. Compare the pattern of numbers in the frequency 

column of your output with the theoretical pat¬ 
tern produced by the program you wrote in exer¬ 
cise 3. 


6.6 CRAPS 

Now you’re ready to play a well known two-dice 
game, Craps. Craps is played as follows. You roll two 
dice and calculate the sum. If the sum is 7 or 11, you 
win; if it is 2, 3, or 12, you lose. If the sum is none of 
these numbers, it becomes your “point,” and you must 
roll the dice again. The object of your second roll is to 
obtain a sum that matches your point, but if you roll a 7 
in the process of trying to match your point, you lose. 1 
In a flow chart here is the sequence of play: 


1. For a detailed description of Craps, as well as many other games 
computers can play, I recommend Game Playing with Comput¬ 
ers by Donald D. Spencer, published by Hayden. 
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CRAPS/ELEMENTARY 
FLOW CHART 


The game of craps owes much of its popularity to the 
fact that it is traditionally played with our handy, porta¬ 
ble random number generators, dice. Few people rec¬ 
ognize that the same game can be played by using the 
more cumbersome Big Wheel. The Big Wheel has the 
advantage, however, of showing the probability of each 
possible outcome when you throw two dice. Here is a 
picture of a Big Wheel divided into eleven sections, 
each section representing one of the eleven possible 
sums obtained when two dice are rolled. 


The area of each pie-shaped section is proportional to 
the probability with which that sum occurs. If you have 
forgotten the probability with which each sum, 2 to 12, 
occurs, here is a copy of the table our computer gener¬ 
ated in the last section. 
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TWO DICE/TABLE 


OUTPUT SUM 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


FREQUENCY 

1 

2 

3 

4 

5 

6 
5 
4 
3 
2 
1 


PROBABILITY 
•02777778 
•05555556 
•03333333 
• 1 11 1 1 11 

• 1333339 

• 1666667 

• 1383839 

• 111 11 1 1 
•08333333 
• 055,55556 
•02777778 


Look at the table. The sum of 4 occurs with probability 
3/36. So, in the wheel, the area of the sector labelled 4 is 
3/36 of the area of the circle. In other words, the Craps 
Wheel is the same wheel we designed in the last section. 
We have simply erased the spokes, except for those 
which separate the sections representing different sums. 
When you look at the geometry of the Craps Wheel, can 
you see reflected there the frequency pattern printed out 
by TWO DICE/TABLE? 

To play Craps with the Craps Wheel, you spin the 
wheel to generate the outcome which would be obtained 
if you were to roll the dice. What is the probability of 
winning on the first spin? According to the rules you 
win on a 7 or 11. The probability of a 7 is 6/36, and of an 
11, 2/36. Therefore the probability of winning on the 
first “roll’’ is 6/36 4- 2/36, or 8/36. That’s just a little 
less than 9/36, or one out of four. What is the probability 
of losing on the first spin? You lose if the wheel comes 
to rest at 2, 3, or 12. The probability of a 2 is 1/36, of a 3 
is 2/36, and of a 12 is 1/36. The total is 4/36 or 1/9. Your 
chances of losing on the first “roll’’ is one out of nine. 

That sounds pretty good, 8 out of 36 to win, and 4 out 
of 36 to lose. But that’s only 12 of the 36 possible 
outcomes of the first roll. What about the other 24 
outcomes? What are your chances of winning on the 
second roll? Or the third roll? 

As always, there are two ways to find out. One is to 
compute the theoretical probabilities of the many possi¬ 
ble outcomes. 1 The second way is to use our fast and 
tireless computer to play Craps, say, a thousand times. 
But really what you want to know is whether or not you 
have at least a 50/50 chance of winning at Craps if you 
play it repeatedly. In short, is Craps a fair game? 

To find out if Craps is a fair game, let’s first program 
the computer to play Craps. As soon as we check out the 
program, we’ll modify it to play 1000 games. We’ll be 


1. See Dorn, Greenberg and Keller, Mathematical Logic and 
Probability with BASIC Programming published by Prindle, 
Weber, and Schmidt, 1973. 
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able to decide if the game is fair.by comparing the 
number of games won with the number of games lost. 

Look again at the Craps flow chart; Replacing some 
of the words with variable names, let’s redraw this flow 
chart. This will bring us a step closer to BASIC. Sepa¬ 
rate the box 


0 -* 


ROLL DICE 
CALCULATE SUM 


into two boxes, one to roll the dice and another to 
calculate the sum. To roll the dice, the computer must 
generate two random numbers between 1 and 6. Let D1 
and D2 represent these numbers. Then the sum, S, must 
be calculated. Here are the two replacement boxes. 


0 —► 



Now separate the diamond 



into two diamonds: one which asks IS S = 7? and one 
which asks IS S = 11? 



Separate the next diamond 



is 

SUM =2, 3, 12? 


YES 


LOSE 


NO 


into three diamonds: one which asks IS S = 2?, one 
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which asks IS S= 3?, and one which asks IS S 



is drawn as: 


p = s 


where P represents the “point.” 


The box 


ROLL DICE AGAIN 
CALCULATE 
NEW SUM 


is separated into two boxes. 


©-> 



12 ?. 


The next diamond 

















CRAPS 
FLOW CHART 
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I’m going to let you write the program from this flow 
chart with just a little help. Look at the flow chart and 
fill in the following blanks and missing statements. I’ll 
give you some hints along the way. 


1 


Whenever you use RND(X) you must 
write_ 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


LET D1 = _ 

LET D2 = _ 

PRINT “YOU ROLLED” 


Generate Random Numbers 1-6 
using RND(X). 

D1 “AND” D2 


_ Calculate sum. 

PRINT “THE SUM IS”S 

IF S = 7 THEN _ 

IF S = 11 THEN _ 

IF S = 2 THEN _ Fill in blanks with line numbers 

of YOU WIN or YOU LOSE 

IF S = 3 THEN _ 

IF S = 12 THEN _ 

_ Save sum as point. 

PRINT “YOUR POINT IS” P 


Roll dice again. 


PRINT “YOU ROLLED” D1 “AND” D2 


IF S = 7 THEN _ 

IF S = P THEN _ 

GO TO 130 
PRINT “YOU WIN” 


GO TO 10 

PRINT “YOU LOSE” 


GO TO 10 
END 


Calculate sum. 

Fill in blanks with line numbers 
of YOtJ WIN OR YOU LOSE 

Separate games with blank line. 

Separate games with blank line. 
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Your program should look like this. 


1 RANDOM PROGRAM 

10 LET D1 «INT< 6*RND< X)) + 1 
20 LET D2*INT<6*RND<X>>+1 
30 PRINT ”YOU ROLLED” D1 ••AND” D2 
40 LET S*D1+D2 
50 PRINT ”TrtE SUM IS” S 
60 IF S*7 THEN 200 
70 IF Sail TrtEN 200 
80 IF S»2 THEN 230 
90 IF S*3 THEN 230 
100 IF S* 1 2 TrfEN 230 
110 LET P*S 

120 PRINT ”YO T JR POINT IS” P 

130 LET D1*INT<6*RND<X>>+1 

140 LET D2»INT<6*RND<X>)+1 

150 PRINT ”YOU ROLLED” D1 ”AND” D2 

160 LET S*D1+D2 

170 IF S*7 THEN 230 

180 IF S»P THEN 200 

190 GO TO 130 

200 PRINT ”YOD WIN*” 

210 PRINT 

220 GO TO 10 

230 PRINT ”YOU LOSE.” 

240 PRINT 
250 GO TO 10 
260 END 


Enter your completed program into the computer and 
give it a test run. Here is a test run of my program. 


GAME 2 


GAME 3 


CRAPS 


YOU 

ROLLED 

2 

AND 

3 

THE 

SUM IS 

5 



YOUR POINT 

IS 5 


YOU 

ROLLED 

5 

AND 

1 

YOU 

ROLLED 

5 

AND 

4 

YOU 

ROLLED 

6 

AND 

5 

YOU 

ROLLED 

3 

AND 

6 

YOU 

ROLLED 

1 

AND 

6 

_YOU 

LOSE* 




[-YOU 

ROLLED 

I 

AND 

5 

THE 

SUM IS 

6 



YOUR POINT 

IS 6 


YOU 

ROLLED 

4 

AND 

1 

YOU 

ROLLED 

3 

AND 

3 

— YOU 

WIN. 




— YOU 

ROLLED 

2 

AND 

6 

THE 

SUM IS 

8 



YOUR POINT 

IS 8 


YOU 

ROLLED 

5 

AND 

6 

YOU 

ROLLED 

1 

AND 

4 

YOU 

ROLLED 

4 

AND 

6 

YOU 

ROLLED 

1 

AND 

1 

YOU 

ROLLED 

5 

AND 

4 

YOU 

ROLLED 

2 

AND 

1 

YOU 

ROLLED 

6 

AND 

5 

YOU 

ROLLED 

2 

AND 

3 

YOU 

ROLLED 

3 

AND 

5 

— YOU 

WIN. 




YOU 

ROLLED 

4 




♦C 
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Convinced that your program operates correctly, mod¬ 
ify it to have the computer play craps 1000 times. 

We want the computer to play 1000 games as quickly 
as possible. Information about individual outcomes can 
be eliminated from our program, since we are interested 
only in the total number of wins. Insert a FOR statement 
and a NEXT statement to direct the computer to play 
1000 games. In place of 200 PRINT “YOU WIN.” put 
a counter, W, which counts the number of wins. Delete 
230 PRINT “YOU LOSE.” and change all references 
to line number 230 in the IF-THEN statements to the 
line number of the NEXT statement. There is no need to 
count the number of games lost. Below is a copy of my 
Craps program with all the changes to be made indicated 

CRAPS at the ri g ht - 


PROGRAM 

1 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


RANDOM ^_ 

LET D1*INTC6*RND<X)>+1 
LET D2*INTC6«RNDCX)>+1 
PRINT "YOU ROLLED" D1 "AND" D2< 
LET S a Dl+D2 

PRINT "THE SUM IS" S◄- 

IF S«7 THEN 200 
IF S«ll THEN 200 

IF S*2 THEN 230 ◄- 

IF S«3 THEN 230 < - 

IF S*12 THEN 230 4- 

LET P*S 

PRINT "YOUR POINT IS" P <«- 

LET D1»INT(6*RNDCX>)+1 
LET D2*INT< 6*RND<X>) ♦ 1 
PRINT "YOU ROLLED” D1 "AND" D2 
LET S*D1+D2 

IF S*7 THEN 230 ◄- 

IF S*P THEN 200 
GO TO 130 

PRINT "YOU WIN."*- 

PRINT ◄- 


INSERT 


: [ 


4 LET W = 0 

5 FOR C = 1 TO 1000 


DELETE 


DELETE 


CHANGE 230 TO 250 


DELETE 


DELETE 


CHANGE 230 TO 250 


GO TO 10 ◄- 

PRINT "YOU LOSE*" ◄- 

PRINT ◄- 

GO TO 10 * - 

END < - 


REPLACE WITH: 200 LET W =W + 1 
DELETE 

REPLACE WITH: 220 GO TO 250 

DELETE 

DELETE 

REPLACE WITH: 250 NEXT C 
INSERT: 255 PRINT “GAMES WON:” W 
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Here’s the program with all the changes. I 

4 

5 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

130 

190 

200 

210 

220 

230 

240 

250 

255 

260 

Here are three typical runs of the program. 

GAMES WON t 510 
GAMES WONl 472 
(ftMES WONl 496 


Look at the output. Is Craps a fair game? Theory says 
the probability of winning is .4929292 . . ., or just 
slightly less than 1/2. That means that, in the long run, 
the player will lose slightly more than he wins. In 
theory, if he starts with $500 and bets one dollar on each 
of 1000 games, he will have only $492.92 to take home 
at the end of the day. Craps is not a fair game, but it’s 
pretty close. So close that most people who play the 
game make the payoff 1 tol. 

mmaasmamu exercise set 6.6 ■■■■■■■■ 

Off-line: 

1. Craps is an ancient game, played with two dice, and 
follows the rules as outlined in this section. Invent a 
new version of Craps, call it Sparc, played with 1,2 
or 3 dice and draw a flow chart of your Sparc game. 


RANDOM CRAPS/1000 

LET W*0 OUTPUT 

FOR C*1 TO 1000 
LET Dl*INT(6*RND(X)) ♦ 1 
LET D2»INT< 6*RNDCX)) + 1 

LET S=D1+D2 

IF S»7 THEN 200 
IF S»ll THEN 200 
IF S 3 2 THEN 250 
IF S*3 THEN 250 
IF S* 12 THEN 250 
LET P»S 

LET D1«INT<6*RND<X>>+l 
LET D2*INTC6*RNDCX))+1 

LET S*Dl+D2 
IF S*7 THEN 250 
IF S»P THEN 200 
GO TO 130 
LET WaW+1 

GO TO 250 


NEXT C 

PRINT M GAMES WON*" W 
END 


On-line: 

2. Write an elementary program from your flow chart 
for Sparc. Run the program and play several games. 
Is Sparc a fair game? 

3. To determine if Sparc is a fair game, set up your 
program to have the computer play 1000 games. 
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PLAYING BLACKJACK 

DO YOU WANT INSTRUCT!ONS?NO 

YOU HAVE $1000 TO PLAY WITH. 

-THE CARDS ARE BEING SHUFFLED- 

I'M READY TO DEAL. 

BET PLEASE?100 

YOUR DOWN CARD I Si 
YOUR UP CARD I Si 
MY UP CARD I St 
YOUR TOTAL IS 18 
HIT? NO 

MY DOWN CARD I Si 8 OF HEARTS 

MY TOTAL IS 15 

MY NEXT CARD I Si 5 OF HEARTS 

MY TOTAL IS 20 
I STICK. 

I WIN. YOU LOSE $100 
YOU NOW HAVE $900 TO PLAY WITH. 


BET PLEASE?500 

YOUR DOWN CARD I St 8 OF SPADES 

YOUR UP CARD I St A OF CLUBS 

MY UP CARD I St JACK OF DIAMONDS 

YOUR TOTAL IS 12 
HIT? YES 

YOUR NEXT CARD I St 3 OF HEARTS 
YOUR TOTAL IS 15 
HIT? YES 

YOUR NEXT CARD I St 5 OF CLUBS 
YOUR TOTAL IS 20 
HIT? NO 

MY DOWN CARD I St 2 OF HEARTS 

MY TOTAL IS 12 

MY NEXT CARD I St QUEEN OF SPADES 

MY TOTAL IS 22 

I BUST. YOU WIN $500 

YOU NOW HAVE $1400 TO PLAY WITH. 


BET PLEASE?9999 

GLAD YOU HAD FUN. COME BACK SOON. 


10 OF DIAMONDS 
8 OF CLUBS 
7 OF SPADES 
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7 

CARD GAMES 


As we pointed out in the last chapter, coins and dice 
are handy little portable random number generators. 
People have been betting on the outcomes of these 
devices for centuries. Another portable random number 
generator that has found much favor with the public is a 
deck of cards. Again, people have been betting on the 
outcomes of cards for centuries. How does a deck of 
cards function as a random number generator? 

First of all, there are 52 unique cards in a deck. They 
are not numbered from 1 to 52, however, but are 
grouped in four suits of 13 cards each. After the 52 cards 
are thoroughly shuffled, they are in random order. By 
picking or dealing a single card off the top of the deck, 
the dealer generates a single random number between 1 
and 52 inclusive. This is analogous to rolling one die, in 
which case the outcome is a single random number 
between 1 and 6 inclusive. 

Recall that you obtain a more complex outcome by 
rolling two dice, a combination of two numbers, each 
between 1 and 6 inclusive. When the two numbers are 
added together, the outcome is a number between 2 and 
12 inclusive. The outcomes from 2 to 12 do not, how¬ 
ever, occur with equal likelihood. The likelihood of 
each outcome from 2 to 12 was presented in a table in 
the last chapter. 

Similarly, you can obtain a more complex outcome 
by dealing two or more cards at one time, that is a 
combination of two or more numbers, each between 1 
and 52 inclusive. Unlike dice, however, the unique 
numbers of the dealt cards are not added together, 
although the face values may be, as in Twenty-one or 
Blackjack. Because each deck is divided into four suits, 
there are many possible combinations of face value and 
suits. Poker is based on some of the best known five- 
card combinations or “hands.” There are 2,598,960 
different five-card hands, of which the following have 
special value in poker: 

Number 

Hands of Ways 

Royal Flush (A, K, Q, J, 10 in the same 4 

suit) 

Straight Flush (five cards in numerical 36 

sequence in the same suit) 

Four-of-a-Kind (four cards of equal face 624 

value and one other) 
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Full House (three-of-a-kind and a pair) 3,744 

Flush (any five cards in the same suit) 5,108 

Straight (five cards in numerical sequence 10,200 
regardless of suit) 

Three-of-a-Kind (three cards of equal 54,912 

face value and two others) 

Two pairs (two pairs and one other) 123,552 


One Pair (two cards of equal face value 1,098,240 
and three others) 

The above combinations are listed in order of decreas¬ 
ing rank in the game of poker. The remaining 1,302,540 
hands are ranked by the highest card in the hand. 

In the balance of this chapter, we will teach the 
computer to deal cards, and then use the card-dealing 
routine in three card games, the last of which is Black¬ 
jack or Twenty-one. 

7.1 TEACHING THE COMPUTER TO DEAL CARDS 

An ordinary deck of cards consists of four suits called 
spades, hearts, diamonds, and clubs. Each suit contains 
one each of the following cards: ace, king, queen, jack, 
10, 9, 8, 7, 6, 5, 4, 3, 2. As the computer deals the 52 
cards one at a time, the output will look something like 
this: 


QUEEN OF SPADES 
3 OF DIAMONDS 
10 OF CLUBS 
JACK OF HEARTS 
8 OF HEARTS 


To teach the computer to deal one of the 52 cards, first 
have it generate a random whole number between 1 and 
52 inclusive. This is done by using the random number 
generator RND(X). First multiply RND(X) by 52 to 
generate mixed numbers between 1 and 52. Thus, 
52*RND(X). Next use INT to transform the mixed 
numbers into whole numbers. Thus, INT(52* 
RND(X)). Finally, add 1 to shift the whole numbers 0 to 
51 one unit to the right. This gives INT(52* 
RND(X)) + 1. 

Now that we have an expression to generate numbers 
between 1 and 52 inclusive, we need a scheme to deter¬ 
mine which card each number represents. For example, 
suppose the number 23 is generated. Which card in the 
deck does 23 represent? 

There are many schemes which can be used for pair¬ 
ing each number from 1 to 52 with a card in the deck. 
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Writing a routine to associate a card with a number is 
easy if the assignment scheme follows a pattern. Let’s 
follow the hierarchy of suits used in bridge. From low¬ 
est to highest, the suits are ranked clubs, diamonds, 
hearts, and spades. Let the numbers 1 to 13 represent 
clubs, 14 to 26 represent diamonds, 27 to 39 rep¬ 
resent hearts, and 40 to 52 represent spades. 
Within each suit, the rank of cards will be 2 (lowest), 3, 
4, 5, 6, 7, 8, 9, 10, Jack, Queen, King, Ace (highest). 
The relationship between number and card is given in 
the following table: 


NUMBER 

CARD 



1 

2 of clubs 

27 

2 of hearts 

2 

3 of clubs 

28 

3 of hearts 

3 

4 of clubs 

29 

4 of hearts 

4 

5 of clubs 

30 

5 of hearts 

5 

6 of clubs 

31 

6 of hearts 

6 

7 of clubs 

32 

7 of hearts 

7 

8 of clubs 

33 

8 of hearts 

8 

9 of clubs 

34 

9 of hearts 

9 

10 of clubs 

35 

10 of hearts 

10 

Jack of clubs 

36 

Jack of hearts 

11 

Queen of clubs 

37 

Queen of hearts 

12 

King of clubs 

38 

King of hearts 

13 

Ace of clubs 

39 

Ace of hearts 

14 

2 of diamonds 

40 

2 of spades 

15 

3 of diamonds 

41 

3 of spades 

16 

4 of diamonds 

42 

4 of spades 

17 

5 of diamonds 

43 

5 of spades 

18 

6 of diamonds 

44 

6 of spades 

19 

7 of diamonds 

45 

7 of spades 

20 

8 of diamonds 

46 

8 of spades 

21 

9 of diamonds 

47 

9 of spades 

22 

10 of diamonds 

48 

10 of spades 

23 

Jack of diamonds 

49 

Jack of spades 

24 

Queen of diamonds 

50 

Queen of spades 

25 

King of diamonds 

51 

King of spades 

26 

Ace of diamonds 

52 

Ace of spades 


Now that we have settled on a scheme for assigning a 
number to each card, let’s write a program to ‘ ‘deal’ ’ all 
52 cards in random order, as they might occur in a 
well-shuffled deck. We start by using FOR and NEXT 
to build a loop. Since there are 52 cards in a deck, the 
FOR and NEXT statements will be set up this way: 

FOR C = 1 TO 52 
NEXT C 

Inside the loop, at line 20, we insert the expression to 
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generate a random whole number between 1 and 52. 
Don’t forget the RANDOM statement. 

1 RANDOM 
10 FOR C = 1 TO 52 
20 LET R = INT(52*RND(X)) + 1 
30 NEXT C 

When a real player deals from a real deck, he does not 
replace each card in the deck after it is dealt. He thereby 
eliminates the possibility of duplicate outcomes. How 
do we teach the computer to do the same thing? 

When we taught the computer to play COMPUTER 
GUESS in Chapter 3, we taught it to avoid duplicate 
guesses by setting up a check list in the computer’s 
memory. Let’s do the same thing here. Instead of the 
ten-box check list required for COMPUTER GUESS, 
we need a 52-box check list, one box for each of the 52 
cards. Each box will be given an initial value of zero. 
The computer’s check list looks like: 


N(l) 

N(2) 

N(3) 

N(4) 

N(5) 

N(6) 

N(7) 

N(8) 

N(9) 

N(10) 

N(11) 

N(12) 

N(13) 















N(14) 

N(15) 

N(16) 

N(17) 

N(I8) 

N(19) 

N(20) 

N(2I) 

N(22) 

N(23) 

N(24) 

N(25) 

N(26) 















N(27) 

N(28) 

N(29) 

N(30) 

N(31) 

N(32) 

N(33) 

N(34) 

N(35) 

N(36) 

N(37) 

N(38) 

N(39) 















N(40) 

N(41) 

N(42) 

N(43) 

N(44) 

N(45) 

N(46) 

N(47) 

N(48) 

N(49) 

N(50) 

N(51) 

N(52) 















To instruct the computer to set aside space in memory 
for these 52 boxes, we need a DIMENSION or DIM 
statement. We also need an initialization loop to put a 
zero in each box. Add lines 2, 3,4, and 5 to the above 
four program steps. 

1 RANDOM 

2 DIM N(52) 

3 FOR I = 1 TO 52 

4 LET N(I) = 0 

5 NEXT I 

10 FOR C = 1 TO 52 

20 LET R = INT(52*RND(X)) + 1 

30 NEXT C 

Here’s how the check list works. Each time a card is 
dealt, the zero in the corresponding box is replaced by 
the number 1. In short, the number 1 is a flag. When the 
computer generates a number, R, instruct it to look at 
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the contents of box N(R). If there’s a 1 in the box N(R), 
the number R has already been “dealt.” The computer 
must generate another number. If N(R) is not 1, then 
deal the card, after putting a 1 in the box. Add lines 21 
and 22 to the steps above. 

1 RANDOM 

2 DIM N(52) 

3 FOR I = 1 TO 52 

4 LET N(I) = 0 

5 NEXT I 

10 FOR C = 1 TO 52 

20 LET R = INT(52*RND(X)) + 1 

21 IF N(R) = 1 THEN 20 

22 LET N(R) = 1 

30 NEXT C 

So much for preventing the same card being dealt 
twice. But what card does the number represent? The 
routine which assigns a card to the number requires 
quite a few steps and will be set up as a subroutine. 
Insert a GO SUB at line 23, leaving a blank after the GO 
SUB. Here is our partial program: 

1 RANDOM 

2 DIM N(52) 

3 FOR I = 1 TO 52 

4 LET N(I) = 0 

5 NEXT I 

10 FOR C = 1 TO 52 

20 LET R = INT (52*RND(X)) + 1 

21 IF N(R) = 1 THEN 20 

22 LET N(R) = 1 

23 GO SUB _ 

30 NEXT C 

The organization of the program as given above is 
natural if your only purpose is to deal 52 cards. When 
the cards are dealt as part of a game, however, it is 
desirable to organize the program differently, treating 
the card dealing routine as a subroutine activated by a 
main game program. 

In a real card game there are two steps that mark the 
start of the game: (1) gather the cards together in a 
complete deck and (2) shuffle the deck. Initializing the 
boxes in the check list parallels the first step of gathering 
the cards together. In the computer, the cards are shuf¬ 
fled by the random number generator. Let me place the 
initialization of the check list, lines 3, 4, and 5, in a 
subroutine beginning at line 500. The subroutine is 
activated by GO SUB 500 in line 5. Also, a STOP 
statement has been inserted at line 40 and an END 
statement at line 999. Our reorganized partial program 
now looks like this. 
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1 RANDOM 

2 DIM N(52) 

5 GO SUB 500 
10 FOR C = 1 TO 52 

20 LET R = INT(52*RND(X)) + 1 

21 IF N(R) = 1 THEN 20 

22 LET N(R) = 1 

23 GO SUB_ 

30 NEXT C 

40 STOP 

500 FOR I = 1 TO 52 
505 LET Nfl) = 0 
510 NEXT I 
515 RETURN 

999 END 

Now let’s build a subroutine which deals, not 52 cards, 
but just one card. Dealing one card consists of generat¬ 
ing a number between 1 and 52, checking for dupli¬ 
cates, and then assigning a card to the number. These 
three operations are done in lines 20, 21, 22 and 23. I’ll 
move these lines into a new subroutine beginning at line 
600. The partial program now takes this revised form. 

1 RANDOM 

2 DIM N(52) 

5 GO SUB 500 
10 FOR C = 1 TO 52 
20 GO SUB 600 
30 NEXT C 
40 STOP 

500 FOR I =1 TO 52 
505 LET N(I) = 0 
510 NEXT I 
515 RETURN 

600 LET R = INT(52*RND(X)) + 1 
605 IF N(R) = 1 THEN 600 
610 LET N(R) = 1 
615 GO SUB 700 
620 RETURN 

999 END 

Look at line 615. I’ve put 700 in the blank after the GO 
SUB. We’re now ready to write the routine which 
assigns a card to each number, according to the follow¬ 
ing table. 
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CARD FACE 



2 

3 

4 

5 

6 

7 

8 

9 

10 

J 

0 

K 

A 

CLUB 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

DIAMOND 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

HEART 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

SPADE 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


Look at the table. Two steps are required to determine 
the card assigned to the number 10. First, read the 
corresponding row heading at the left edge of the table; 
the suit is clubs. Next, read the corresponding column 
heading at the top of the table; the card face is a jack. In 
short, a 10 is the jack of clubs. The same procedure will 
reveal that a 26 is the ace of diamonds, a 28 is the 3 of 
hearts, and a 47 is the 9 of spades. 

So much for the human procedure for determining the 
card assigned to a number. What about a procedure for 
the computer? Look again at the table. Any number 
from 1 to 13 represents a club; any number from 14 to 26 
represents a diamond; any number from 27 to 39 
represents a heart; and any number from 40 to 52 repres¬ 
ents a spade. These results are summarized below. 

RANGE OF NUMBERS SUIT 

1-13 CLUBS 

14-26 DIAMONDS 

27 - 39 HEARTS 

40 - 52 SPADES 


Thus, for the computer to determine suit, it will simply 
use a sequence of IF-THEN statements to determine the 
range into which a given value of R falls. Now for the 
second operation, the procedure for determining the 
card face. 

Look at the table again. In the first row all the num¬ 
bers are between 1 and 13 inclusive. The correspon¬ 
dence between these numbers and the card face is given 
in the column heading above each number. The follow¬ 
ing list shows this association of number and card face. 


NUMBER 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 


CARD FACE 

2 

3 

4 

5 

6 

7 

8 
9 

10 

Jack 

Queen 

King 

Ace 
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Note that the numbers 1 to 9 correspond to the card faces 
2 to 10 and that the numbers 10 to 13 correspond to the 
jack, queen, king, and ace. 

Now look at the second row in the table. All numbers 
are between 14 and 26 and designate diamonds. Sub¬ 
tract 13 from each number. The range of numbers is 
now 1 to 13. To determine the card face use the list 
given above. 

Now look at the third row. All the numbers are 
between 27 and 39 and designate hearts. Subtract 26 
from each number. The range of numbers is now 1 to 
13. To determine the card face use the list given above. 

Now look at the fourth row. All the numbers are 
between 40 and 52 and designate spades. Subtract 39 
from each number. The range of numbers is now 1 to 
13. To determine the card face use the list given above. 
Thus, after the suit has been determined, the computer 
can determine the card face by either subtracting 13,26, 
or 39 and then using a sequence of IF-THEN statements 
to determine the card face according to the list given 
above. In short, the computer must perform two opera¬ 
tions. The first operation is to determine suit and then 
subtract either 13, 26, or 29. Once the first operation has 
been completed, the second operation must be acti- 
DETERMINE SUIT vated, that of determining the card face. Here is a flow 

FLOW CHART chart of the first operation. 
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700 IF R<* 1 3 THEN 775 

705 IF R<=*26 THEN 755 

710 IF R<»39 THEN 735 

715 LET R*R-39 

720 PRINT "SPADE "; 

725 GO SUB 800 

730 RETURN 

735 LET R=*R-26 

740 PRINT "HEART 

745 GO SUB 800 

750 RETURN 

755 LET R*R-13 

760 PRINT "DIAMOND "; 

765 GO SUB 800 

770 RETURN 

775 PRINT "CLUB 

780 GO SUB 800 

785 RETURN 

Look at lines 720, 740, 760, and 775. The semicolon 
indicates there is more to come on each line. 

So much for the first subroutine which designates 
suit. Now to activate the second operation, that of 
determining the card face. Here is a flow chart of that 
operation. 



If R = 8, what is the card face? If R = 1, what is the 
card face? Encode the above flow chart as a subroutine 
beginning at line 800. 


DETERMINE SUIT 
SUBROUTINE 


DETERMINE CARD FACE 
FLOW CHART 


DETERMINE CARD FACE 
SUBROUTINE 


800 

IF Ft® 1 3 THEN 

860 

805 

IF Ft® 1 2 THEN 

850 

810 

IF R®11 THEN 

840 

815 

IF R®1 Id THEN 

830 

820 

PRINT R*1 


825 

RETURN 


830 

PRINT ••JACK*' 


835 

RETURN 


840 

PRINT "QUEEN" 

845 

RETURN 


850 

PRINT "KING" 


855 

RETURN 


860 

PRINT "ACE" 


865 

RETURN 

3 
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The card face subroutine completes the two-part opera¬ 
tion of associating a number with a card. Let’s put the 
main program and all the subroutines together. 


MAIN PROGRAM 


INITIALIZE CHECK LIST 


GENERATE NUMBER 


52 CARDS PROGRAM 1 

2 

“10 
20 
30 
40 

_50 

'500 
505 
510 
.515 
'600 
60 5 
610 
615 
.620 
700 
705 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
770 
775 
780 
.785 
- 800 
805 
810 
815 
820 
82 5 
830 
835 
840 
845 
850 
855 
860 
.865 
999 


DETERMINE SUIT 


DETERMINE CARD FACE 


RANDOM 
DIM N(52 ) 

GO SUB 500 ◄- ACTIVATE INITIALIZE CHECK LIST 

FOR C*1 TO 52 

GO SUB 600 < - ACTIVATE GENERATE NUMBER 

NEXT C 
STOP 

FOR I»1 TO 52 
LET NCI) a 0 
NEXT I 
RETURN 

LET R=INT(52*RNDCX)>+l 
IF N<R)=*1 THEN 600 
LET NCR)*1 

GO SUB 700 < - ACTIVATE DETERMINE SUIT 

RETURN 

IF R< a 13 THEN 775 
IF R<»26 THEN 755 
IF R<=»39 THEN 735 
LET RaR-39 
PRINT M SPADE *•; 

GO SUB 800- < - 

RETURN 
LET RaR-26 
PRINT "HEART "I 
GO SUB 800 ◄- 

RETURN ACTIVATE DETERMINE 

LET R*R- 1 3 CARD FACE 

PRINT "DIAMOND 

GO SUB 800 ◄- 

RETURN 

PRINT "CLUB "; 

GO SUB 800 ◄—- 

RETURN 

IF R*13 THEN 860 
IF R=12 THEN 850 
IF R a 11 THEN 840 
IF R*10 THEN 830 
PRINT R+l 
RETURN 

PRINT "JACK" 

RETURN 

PRINT "OUEEN" 

RETURN 

PRINT "KING" 

RETURN 
PRINT "ACE" 

RETURN 

END 
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Here is a typical run. HEART JACK OUTPUT 

HEART 7 
DIAMOND 8 
DIAMOND 3 
CLUB JACK 
HEART 10 
DIAMOND 5 
CLUB 2 
DIAMOND KING 
HEART 2 
CLUB 9 
DIAMOND 9 
HEART QUEEN 
CLUB 8 
SPADE QUEEN 
CLUB 6 
CLUB 3 
CLUB QUEEN 
DIAMOND 10 
SPADE 4 
HEART ACE 
SPADE 3 
DIAMOND QUEEN 
CLUB 7 
HEART 6 
DIAMOND ACE 
DIAMOND 2 
SPADE 5 
DIAMOND 4 
HEART KING 
CLUB ACE 
SPADE JACK 
HEART 3 
SPADE 6 
HEART 8 
DIAMOND JACK 
CLUB KING 
SPADE 8 
HEART 5 
SPADE ACE 
SPADE KING 
HEART 9 
DIAMOND 7 
SPADE 10 
CLUB 10 
HEART 4 
CLUB 8 
SPADE 7 
CLUB 4 
SPADE 9 
DIAMOND 6 
SPADE 2 

Look at the output. The suit label comes first, fol¬ 
lowed by the card face. A more common way of listing 
cards is to print the card face first followed by the suit 
label. Most of us say “5 OF SPADES” instead of 
‘‘SPADE 5.” To humanize the output, let’s change the 
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order of printing. Print the card face first and then the 
suit label. This requires interchanging two steps at four 
places in the program 52 CARDS. Lines 720 and 725, 
740 and 745, 760 and 765, and 775 and 780 must be 
interchanged. Finally, the semicolon must be placed at 
the end of each PRINT statement in the DETERMINE 
CARD FACE subroutine. Here is the program 52 
CARDS with these changes. 


52 CARDS/FACE FIRST PROGRAM i 

2 


MAIN PROGRAM 


INITIALIZE CHECK LIST 


GENERATE NUMBER 


DETERMINE SUIT 


DETERMINE CARD FACE 


- 10 

20 

30 

_40 

50 
~~ 500 
50 5 
510 
__ 51 5 
” 600 
605 
610 
61 5 
_ 620 
“ 700 
705 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
770 
775 
780 
_ 785 
"”800 
805 
810 
81 5 
820 
825 
830 
835 
840 
845 
850 
855 
860 

_865 

999 


RANDOM 
DIM N<52> 


GO SUB 500 
FOR C*l TO 52 
GO SUB 600 
NEXT C 
STOP 

FOR 1*1 TO 52 
LET N(I)*0 
NEXT I 
RETURN 

LET R*INT(52*RND<X>)+l 
IF N(R) 3 1 THEN 600 
LET N(R)*1 
GO SUB 700 
RETURN 

IF R<* 1 3 THEN 775 
IF R<*26 THEN 755 
IF R<*39 THEN 735 
LET R*R-39 

GO SUB 800-1 

PRINT ” OF SPADES” - 1 

RETURN 
LET R*R-26 

GO SUB 800-1 

PRINT ” OF HEARTS” -1 

RETURN 
LET R*R-13 

GO SUB 800-1 

PRINT M OF DIAMONDS”—I 
RETURN 

GO SUB 800-1 

PRINT ” OF CLUBS”-■ 

RETURN 

IF R*13 THEN 860 
IF R*12 THEN 850 
IF R*11 THEN 840 
IF R*10 THEN 830 
PRINT R+l; 

RETURN 

PRINT ”UACK”;^- 

RETURN 

PRINT ”QUEEN”- 

RETURN 

PRINT ”KING”;^- 

RETURN 

PRINT ”ACE”;<*- 


INTERCHANGED 


INTERCHANGED 


INTERCHANGED 


INTERCHANGED 


SEMICOLON 


RETURN 

END 
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Here is a typical run. 


3 OF DIAMONDS 
10 OF DIAMONDS 

6 OF CLUBS 

9 OF DIAMONDS 
A OF HEARTS 

3 OF SPADES 

10 OF HEARTS 

5 OF CLUBS 
QUEEN OF DIAMONDS 

8 OF HEARTS 
£ OF CLUBS 

7 OF SPADES 

6 OF SPADES 

7 OF CLUBS 

4 OF DIAMONDS 
QUEEN OF CLUBS 
KING OF SPADES 
KING OF DIAMONDS 
ACE OF CLUBS 

5 OF SPADES 
ACE OF HEARTS 

6 OF DIAMONDS 

9 OF CLUBS 
JACK OF CLUBS 
JACK OF HEARTS 
JACK OF DIAMONDS 

6 OF HEARTS 

4 OF SPADES 
2 OF SPADES 

7 OF DIAMONDS 

9 OF SPADES 

10 OF CLUBS 

7 OF HEARTS 
JACK OF SPADES 

8 OF DIAMONDS 
KING OF HEARTS 
ACE OF DIAMONDS 

5 OF DIAMONDS 
ACE OF SPADES 

8 OF SPADES 
QUEEN OF SPADES 

10 OF SPADES 
2 OF HEARTS 
5 OF HEARTS 
KING OF CLUBS 

2 OF DIAMONDS 

3 OF CLUBS 

9 OF HEARTS 

4 OF CLUBS 
3 OF HEARTS 
8 OF CLUBS 

QUEEN OF HEARTS 


It is most important that you have a clear picture of 
the organization of the program, 52 CARDS/FACE 
FIRST, and the interrelationship between the main 
program and its subroutines. Just as loops can be nested, 
one subroutine may activate another, which in turn may 
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52 CARDS/FACE FIRST 


MAIN PROGRAM 


INITIALIZE 
CHECK LIST 


GENERATE 

NUMBER 


DETERMINE 

SUIT 


DEAL 

CARD 


DETERMINE 

CARD 

FACE 


activate another. At line 30, the main program activates 
the GENERATE NUMBER subroutine beginning at 
line 600, and that in turn activates the DETERMINE 
SUIT subroutine beginning at line 700, and that in turn 
activates the DETERMINE CARD FACE subroutine 
beginning at line 800. Here is a schematic diagram of 
these nested subroutines. 


1 

2 

“10 
20 
30 
_ 40 
50 
500 
505 
510 
515 
600 
605 
610 
615 
620 
700 
70 5 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
770 
775 
780 
785 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
855 
860 
865 
999 


RANDOM 
DIM N ( 52 > 

GO SUB 500 
FOR C*1 TO 52 

GO SUB 600- 

NEXT C 
STOP 

FOR 1*1 TO 52 
LET NCI)*0 
NEXT I 
RETURN 

LET R*INT(52*RNDCX)>+l 
IF N<R)=1 THEN 600 
LET N<R)*1 

GO SUB 700- 

RETURN 

IF R<*13 THEN 775 
IF R<*26 THEN 755 
IF R<»39 THEN 735 
LET R*R-39 

GO SUB 800-► 

PRINT " OF SPADES" 

RETURN 

LET R*R-26 

GO SUB 800-► 

PRINT " OF HEARTS" 

RETURN 

LET R-R-13 

GO SUB 800-► 

PRINT " OF DIAMONDS" 
RETURN 

GO SUB 800-► 

PRINT " OF 
RETURN 

IF R*13 THEN 860- 

IF R*12 THEN 850 
IF R 3 11 THEN 840 
IF R*10 THEN 830 
PRINT R+l; 

RETURN 

PRINT "JACK"; 

RETURN 

PRINT "QUEEN"; 

RETURN 

PRINT "KING"; 

RETURN 

PRINT "ACE"; 

RETURN - 

END 


ACTIVATE 

GENERATE 

NUMBER 


ACTIVATE 

DETERMINE 

SUIT 


ACTIVATE DETERMINE 
CARD FACE 
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EXERCISE SET 7.1 


On-line: 

1. Take the program 52 CARDS/FACE FIRST and fix 
it up to produce an output similar to the following. 
Then save lines 500 through 865 for use in the next 3 
exercise sets. 


I CAN DEAL YOU ANY NUMBER OF CARDS* WHEN YOU DON * T 
WANT ANYMORE* TYPE 99. 


HOW MANY CARDS WOULD YOU LIKE DEALT? 4 
8 OF SPADES 
KING OF CLUBS 
QUEEN OF CLUBS 
JACK OF HEARTS 

HOW MANY CARDS WOULD YOU LIKE DEALT? 0 

NOT TOO BRIGHT. IF YOU DON•T WANT ANY TYPE 99. 


HOW MANY CARDS WOULD YOU LIKE DEALT? 84 
STUPID! A DECK HAS ONLY 52 CARDS. 

HOW MANY CARDS WOULD YOU LIKE DEALT? 7.9 
WISE GUY! WHAT DO YOU WANT ME TO DO? TEAR CARDS 
INTO LITTLE PIECES. 

HOW MANY CARDS WOULD YOU LIKE DEALT? -6 
I•D LIKE TO SEE YOU DEAL THAT NUMBER OF CARDS. 

HOW MANY CARDS WOULD YOU LIKE DEALT? 6 
10 OF DIAMONDS 

5 OF DIAMONDS 

3 OF DIAMONDS 

6 OF SPADES 

4 OF SPADES 
10 OF HEARTS 


HOW MANY CARDS WOULD YOU LIKE DEALT? 99 
HOPE YOU LIKED MY FAST DEAL. 


7.2 SUM OF FIVE CARDS 

Here’s a card game in which the computer asks the 
player to guess into which of four ranges, 6 to 20, 21 to 
30, 31 to 40, or 41 to 50, the sum of five cards, to be 
dealt by the computer, will fall. The value of an ace is 1. 
The value of a king, queen, or jack is 10. The value of 
any other card is its face value. The minimum sum of 
five cards, 6, occurs if the four aces and a 2 are dealt. 
The maximum sum, 50, occurs if any five cards with 
value 10 are dealt. The overall range of numbers for the 
sums is therefore 6 to 50, which is subdivided into four 
outcomes as follows. 


OUTCOME 

1 

2 

3 

4 


RANGE OF SUMS 
6-20 
21-30 
31-40 
41-50 
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If the sum falls in the range specified by the player, the 
player wins. Otherwise he loses. 

Suppose a player wants to back up his guess with a 
little wager, say a dollar. How much should he win if his 
guess is correct? Should he win a dollar? That is, should 
the payoff be 1 to 1 for all winning bets? Recall that the 
payoff for a given outcome is related to the probability 
of that outcome. In BIG WHEEL the player could bet on 
one of four numbers. The payoff table looked like this: 


NUMBER 

WAYS TO WIN 

WAYS TO LOSE 

PAYOFF FACTOR 

1 

3 

6 

2 

2 

3 

6 

2 

3 

2 

7 

3.5 

4 

1 

8 

8 


The corresponding table for the new game, 5 CARD 
SUM, looks like this. 

RANGE WAYS TO WIN WAYS TO LOSE PAYOFF FACTOR 
6-20 
21-30 
31-40 
41-50 


We could easily fill in the payoff table for BIG WHEEL 
because we knew from the geometry of the wheel that 
the probability of a 1 was 1/3, of a 2 was 1/3, of a 3 was 
2/9 and of a 4 was 1/9. There are two methods by which 
we can determine the probability of each of the four 
outcomes in 5 CARD SUM. One method is called the 
analytical method and the other the experimental 
method. Recall that both methods were used in Chapter 
6 to calculate the probability of sums when two dice are 
rolled. The analytical method required four steps: 

(1) Draw a tree diagram as an aid to listing all possible 
outcomes, 36 in the case of two dice. 

(2) Insert at the end of each branch the sum of the two 
dice. 

(3) Make a table showing the eleven different sums 
from 2 to 12 and the corresponding frequency of 
occurrence of each sum. 

(4) Calculate the probability of each sum or outcome 
by dividing the frequency by 36. 

The foregoing analytical method gave us the theoretical 
probabilities. 

In the second method, the experimental method, we 
calculated the probability of each of the sums from 2 to 
12 by rolling two dice 3600 times and recording the 
frequency of each different outcome. Instead of rolling 
the dice ourselves, however, we taught the computer to 
do this in the program TWO DICE/3600/EXPER. This 
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program “rolled” two dice, computed the sum and 
tallied the result. After 3600 rolls, a frequency table was 
published along with the probability of occurence of 
each sum. The probabilities obtained experimentally 
were not exactly the same as those obtained with the 
analytical method, but the more times the computer 
rolled the dice, the closer the experimental values would 
come to the theoretical values. 

Each method has its advantage. The analytical 
method yields exact values for the probabilities. If it is 
impossible to specify all the outcomes, however, we 
must resort to the experimental method. 

So much for our review of the two methods of deter¬ 
mining probabilities, as used in Chapter 6.Now let’s use 
them to determine the probabilities of each of the four 
outcomes of the game 5 CARD SUM. First, the analyti¬ 
cal method. The first step is to draw a tree diagram as an 
aid in listing all the possible outcomes when five cards 
are dealt. It’s apparent that there will be more branches 
on the 5 CARD tree than there were on the 2 DICE tree. 
Here is the way to figure out the number of branches on 
the 5 CARD tree. The first card dealt can be any one of 
the 52 cards in the deck. The second card dealt can be 
any one of the 51 remaining cards. The third card dealt 
can be any one of the 50 remaining cards. The fourth 
card dealt can be any one of the 49 remaining cards. The 
fifth card dealt can be any one of the 48 remaining cards. 
Thus, the total number of outcomes or branches in the 
tree diagram is the product of 52*51*50*49*48 or 
311,875,200. A large number! However, this number 
can be reduced by eliminating duplicate outcomes. For 


example, 



this hand 

ace of spades 

2 of diamonds 

9 of hearts 

10 of hearts 

3 of clubs 

has the same sum as 

this hand 

9 of hearts 

2 of diamonds 

3 of clubs 

10 of hearts 
ace of spades 

even though the 


order in which the cards were dealt is different. Al¬ 
together, there are 120 possible arrangements of these 
five cards, all with the same sum. Any one of these five 
cards could be dealt first. Then, once the first card has 
been selected, any one of the four remaining cards could 
be second. Then, once the second card has been 
selected, any one of the three remaining cards could be 
third. Then, once the third card has been selected, any 
one of the two remaining cards could be fourth. Finally, 
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after the fourth card has been selected, the fifth card can 
be selected in only one way. If you multiply the number 
of ways in which each of the cards can be selected, 
5 * 4 * 3 * 2 * 1 , you get 120. Thus, each set of five cards 
can be drawn in 120 different sequences. Each ar¬ 
rangement has the same sum, however. To eliminate the 
sequence effect divide 311,875,200 by 120. The result, 
2,598,960, is the number of distinct five card hands. 

Even if you consider only the 2,598,960 distinct five- 
card combinations, the resulting tree diagram is too 
much to ask a human to draw. Part of the tree diagram 
might look something like this, however. 



If it were possible to draw the whole tree, you would 
write the sum of the five cards at the end of each branch. 
Then you would set up a frequency table like this: 
RANGE FREQUENCY 

6-20 
21-30 
31-40 
41-50 

To fill in the frequency table, you would start at the top 
of the tree diagram and work down, putting a tally mark 
opposite the range into which each sum falls. Next you 
would divide the frequency accumulated in each range 
by the total frequency, 2,598,960. 
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Even though we can easily visualize the analytical 
procedure, it would take too long to execute using paper 
and pencil. As we did in computing the probabilities of 
the outcomes of rolling two dice, we could program the 
computer to generate the tree. 

The alternative to the analytical method is to employ 
the experimental method, programming the computer to 
simulate 10,000 deals of five cards each. After the 
computer completes the 10,000 deals, it prints out the 
frequency table. From this table we can calculate the 
probabilities of each of the four outcomes. These prob¬ 
abilities then allow us to construct a payoff table. 

Since either method, analytical or experimental, will 
take quite a bit of computer time, I’ll limit myself to the 
experimental procedure. We start by teaching the com¬ 
puter to deal five cards and compute the sum. If the 
program works correctly, we’ll modify it to repeat the 
procedure 10,000 times. The flow chart for the program 
is drawn as follows. First, the check list for the card 
dealing routine is initialized. 


INITIALIZE 
CHECK LIST 


Next, a variable S is used to hold a place for the sum. 
The value of S at the start of a deal is zero. 


s = o 


The next step is to build a loop using the FOR com¬ 
mand. Five cards are to be dealt, so the FOR statement 
looks like this. 


FOR C = 1 TO 5 


The next step is to deal a card. 


DEAL CARD 


This step is encoded by inserting a GO SUB command 
in the main program which activates the card dealing 
subroutine developed earlier in this chapter. Here again 
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is the card dealing subroutine. 


DEAL CARD 
SUBROUTINE 

GENERATE NUMBER 


DETERMINE SUIT 


DETERMINE CARD FACE 


— 600 
605 
610 
615 

_620 

700 

705 

710 

715 

720 

725 

730 

735 

740 

745 

750 

755 

760 

765 

770 

775 

780 

_735 

300 

805 

310 

815 

320 

825 

830 

835 

340 

845 

850 

855 

860 

_865 


LET R»INT(52*RND(X))+1 
IF N(R>»1 THEN 600 
LET N<R)*1 
GO SUB 700 
RETURN 

IF R<*13 THEN 775 

IF R<*26 THEN 755 

IF R<»39 THEN 735 

LET RsR-39 

GO SUB 800 

PRINT ” OF SPADES” 

RETURN 

LET R=R-26 

GO SUB 300 

PRINT ” OF HEARTS” 

RETURN 

LET RaR-13 

GO SUB 800 

PRINT ” OF DIAMONDS” 

RETURN 

GO SUB 800 

PRINT ” OF CLUBS” 

RETURN 

IF R* 1 3 THEN 360 
IF R a 12 THEN 350 
IF R=ll THEN 840 
IF R*10 THEN 330 
PRINT R+l! 

RETURN 

PRINT ”JACK”; 

RETURN 

PRINT ”QUEEN”! 

RETURN 

PRINT ”KING”! 

RETURN 
PRINT ”ACE”! 

RETURN 


DETERMINE CARD FACE 
SUBROUTINE 

800 IF R*13 THEN 860 
805 IF R*12 THEN 850 
810 IF R-ll THEN 840 
815 IF R a l 0 THEN 830 
820 PRINT R+l! 

825 RETURN 

830 PRINT ”JACK”! 

835 RETURN 

840 PRINT ”QUEEN”! 

845 RETURN 

850 PRINT ”KING”! 

855 RETURN 

860 PRINT ”ACE”! 

865 RETURN 


When the computer returns from the card-dealing sub¬ 
routine to the main program, the value of the card dealt 
must be added to S, the running total. As yet there is no 
statement in the subroutine that stores in the computer’s 
memory the value of the card dealt. The computer only 
prints out the name of the card. We must modify the 
card-dealing subroutine to tell the computer the value of 
the card. The place to do this is in the DETERMINE 
CARD FACE section between lines 800 and 865. 
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In the game of 5 CARD SUM, an ace is worth one point, 
a king, queen, or jack ten points, and all other cards are 
worth their face value. Now for the modifications. Look 
at line 800. If R, the output of the suit-designating 
subroutine, is 13, the computer transfers control to line 
860 and executes PRINT ‘ ‘ ACE’ ’;. After executing this 
statement, the value of an ace, 1, should be stored in 
memory. This requires a new variable, V, to hold a 
place for the value of the card dealt. Insert 861 LET 

V = 1. Now look at lines 805, 810, and 815. If R is 12, 
11, or 10, the card dealt is a king, queen or jack. The 
value of each of these cards is 10. To store a 10 for any 
of these cards, insert 851 LET V = 10, 841 LET 

V = 10, and 831 LET V = 10. So much for telling the 
computer the values of an ace, king, queen, and jack. 
Now to store the values of cards with face values 2 
through 10. 

If R is not 13, 12, 11, or 10, the computer drops to 
820 PRINT R+l;. Values of R from 1 through 9 
correspond to the face cards 2 through 10. The card face 
is always one more than the corresponding value of R. 
After 820 PRINT R + 1;, insert 821 LET V = R + 1. 
Here is the DETERMINE CARD FACE routine with all 
these modifications. 


800 IF R a 13 THEN 860 
805 IF R*12 THEN 850 
810 IF R=11 THEN 840 
815 IF R 3 10 THEN 830 

820 PRINT R+lI 

821 LET V 3 R+l 
825 RETURN 

830 PRINT "JACK"; 

831 LET V*10 
835 RETURN 

840 PRINT "QUEEN"; 

841 LET V»10 
845 RETURN 

850 PRINT "KING"; 

851 LET V*10 
855 RETURN 

860 PRINT "ACE"; 

861 LET V*1 
865 RETURN 


On returning from the card dealing subroutine to the 
main program, we want the computer to add V to the 
sum. Draw the box: 


DETERMINE CARD FACE/ 
5 CARD SUM 
SUBROUTINE 


S = S +V 


Having added the value of the last card to the sum, deal 
the next card. 


NEXT C 
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After five cards have been dealt and the loop is satisfied, 
have the sum printed. 


PRINT 

S 


Here is the complete flow chart of the main program. 


5 CARD SUM 
FLOW CHART 



INITIALIZE 
CHECK LIST 


Encode this flow chart as follows. Don’t forget to in¬ 
clude the RANDOM and DIM statements in lines 1 and 
2. Although remotely located, they are required for the 
INITIALIZE CHECK LIST and GENERATE NUM¬ 
BER subroutines. 
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DEAL 5 CARDS 


INITIALIZE 
CHECK LIST 


DEAL CARD 


1 RANDOM 

2 DIM N ( 52 ) 

10 GO SUB 500 «- ACTIVATE INITIALIZE CHECK LIST 

20 LET S=0 
“30 FOR C=1 TO 5 

40 GO SUB 600 ◄- ACTIVATE DEAL CARD 

50 LET S=S+V 
_60 NEXT C 
70 PRINT ”SUM IS’* S 
80 STOP 

500 FOR 1=1 TO 52 
505 LET N(I)=0 
510 NEXT I 
515 RETURN 

600 LET R=INT<52*RND(X)>+l 
605 IF N(R)*l THEN 600 
610 LET N(R)=1 
615 GO SUB 700 
620 RETURN 

700 IF R<=13 THEN 775 
705 IF R<=26 THEN 755 
710 IF R< = 39 THEN 735 
715 LET R=*R-39 
720 GO SUB 800 
725 PRINT ’* OF SPADES’* 

730 RETURN 

735 LET R=R-26 

740 GO SUB 800 

745 PRINT " OF HEARTS’* 

750 RETURN 

755 LET R=R-13 

760 GO SUB 800 

765 PRINT ’* OF DIAMONDS’* 

770 RETURN 

775 GO SUB 800 

780 PRINT ’* OF CLUBS” 

785 RETURN 

800 IF R=13 THEN 860 

805 IF R=12 THEN 850 

810 IF Rail THEN 840 

815 IF R=10 THEN 830 

820 PRINT R+i; 

821 LET V/*R+1 
825 RETURN 

830 PRINT ’’JACK”; 

831 LET V=»10 
835 RETURN 

840 PRINT **QUEEN’*i 

841 LET V*10 
845 RETURN 

850 PRINT ”KING’*; 

851 LET V*10 
855 RETURN 

860 PRINT ”ACE’*; 

861 LET V/=*l 
865 RETURN 
999 END 


5 CARD SUM 
PROGRAM 
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Here are three typical runs. 


QUEEN OF CLUBS 

RUN 3 2 

OF 

DIAMONDS 

9 

OF 

CLUBS 

7 

OF 

DIAMONDS 

4 

OF 

CLUBS 

9 

OF 

HEARTS 

ACE 

OF 

CLUBS 

3 

OF 

CLUBS 

7 

OF 

CLUBS 

ACE 

OF 

DIAMONDS 

SUM 

IS 

31 

SUM 

IS 

22 


RUN 2 7 OF DIAMONDS 

8 OF HEARTS 
QUEEN OF DIAMONDS 
ACE OF DIAMONDS 
6 OF SPADES 
SUM IS 32 

Convinced that the program operates correctly, let’s (1) 
eliminate the printing of the cards, (2) set up a tally list 
to record the range into which the sum of each hand 
falls, and (3) have the computer repeat the five-card deal 
10,000 times. 

The printing of the cards can be eliminated by delet¬ 
ing the PRINT statements. 

Delete: 

725 PRINT “OF SPADES” 

745 PRINT “OF HEARTS” 

765 PRINT “OF DIAMONDS” 

780 PRINT “OF CLUBS” 

820 PRINT R +1; 

830 PRINT “JACK”; 

840 PRINT “QUEEN”; 

850 PRINT “KING”; 

860 PRINT “ACE”; 

Here is the present DETERMINE CARD FACE sub¬ 
routine. 


DETERMINE CARD FACE/ 

800 

IF R*13 THEN 860 

5 CARD SUM 

805 

IF ft*12 THEN 850 

SUBROUTINE 

810 

IF R*11 THEN 840 


815 

IF ft*10 THEN 830 


820 

PRINT R+i; 


821 

LET V*ft*l 


825 

RETURN 


830 

PRINT "JACK"; 


831 

LET V*10 


835 

RETURN 


840 

PRINT "QUEEN"; 


841 

LET V*10 


845 

RETURN 


850 

PRINT "KING"; 


851 

LET V*10 


855 

RETURN 


860 

PRINT "ACE"; 


861 

LET V*1 


865 

RETURN 
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If you delete lines 830, 840, 850, and 860, however, an 
error will occur when the program is running. There will 
be no lines for the computer to transfer to in lines 
800 — 815. This is remedied by changing the line num¬ 
bers after each of the THENs to an existing line. Change 
860 to 861, 850 to 851, 840 to 841, and 830 to 831. The 
subroutine for dealing cards now looks like this. 


600 

LET R=INT<52*HND(X))+l 

605 

IF N(R)=l THEN 600 

610 

LET NCR)-1 


615 

GO SUB 700 


620 

RETURN 


700 

IF R<*13 THEN 

775 

70 5 

IF R<»26 THEN 

755 

710 

IF R<»39 THEN 

735 

71 5 

LET RaR-39 


720 

GO SUB 800 


730 

RETURN 


735 

LET R-R-26 


740 

GO SUB 800 


750 

RETURN 


755 

LET R=R-13 


760 

GO SUB 800 


770 

RETURN 


775 

GO SUB 800 


785 

RETURN 


800 

IF R-13 THEN 

861 

805 

IF R=»12 THEN 

851 

810 

IF Rail THEN 

841 

815 

IF R*10 THEN 

831 

821 

LET V/a R+l 


825 

RETURN 


831 

LET V/a 1 0 


835 

RETURN 


841 

LET V/a 10 


845 

RETURN 


851 

LET V*10 


855 

RETURN 


861 

LET V/a 1 


865 

RETURN 



So much for eliminating the PRINT statements. Now to 
set up the tally list. 

Four boxes will be used to tally the range into which a 
sum falls. The boxes look like this: 


F(l) 

F(2) 

F(3) 

F(4) 






F(l) will tally all sums which are 6-20. 

F(2) will tally all sums which are 21-30. 

F(3) will tally all sums which are 31-40. 

F(4) will tally all sums which are 41-50. 

The tally list will be used in the main program after the 
box 


NEXT C 


DEAL CARD/5 CARD SUM 
SUBROUTINE 
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and in place of 


The box PRINT S can be eliminated because we do not 
need to see the sum after each deal. In place of PRINT S 
we’ll put the statements to operate the tally list. First the 
computer must determine into which range the sum 
falls. This is done by using three IF-THEN statements. 
Next the computer must execute the corresponding tally 
statement. Here is a flow chart of the tally operation. 



TALLY OPERATION 


5 CARD SUM/1 OK FLOWCHART 





So much for the tally list. The third revision is to have 
the computer repeat the five-card deal 10,000 times. 
This is done by putting the entire routine for dealing and 
tallying five cards in a FOR-NEXT loop, using the 
variable N to count off the number of repetitions. After 
the loop has been satisfied, the results should be printed. 
Here is the complete flow chart for the main program of 
5 CARD SUM/10K 
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MAIN 

PROGRAM 


10K 

DEALS 


5 

CARDS 


TALLY 


OUTPUT 

TOTALS 


INITIALIZE CHECK LIST 


-1 

2 

3 

—5 
10 
20 
"30 
40 
50 
_ 60 
"80 
90 
100 
110 
120 
130 
140 
150 
1 60 
170 
180 
190 
200 
210 
220 
230 
500 
50 5 
510 
L.51 5 


RANDOM PROGRAM 

DIM lM ( 52 > 

DIM F( 4 ) 

FOR N*1 TO 10000 

GO SUB 500 

LET S*0 

FOR C*1 TO 5 

GO SUB 600 

LET S*S+V 

NEXT C 

IF S<»20 THEN 170 

IF S<*30 THEN 150 

IF S<*40 THEN 130 

LET F < 4)*F<4)♦1 

GO TO 180 

LET F< 3 )*F(3)*1 

GO TO 180 

LET F<2)*F<2) + 1 

GO TO 180 

LET F(1)*FC1>+l 

NEXT N 

PRINT "RANGE"*"FREQUENCY" 
FOR 1*1 TO 4 
PRINT I>F(I) 

NEXT I 
STOP 

FOR 1*1 TO 52 
LET N(I)*0 
NEXT I 
RETURN 


DEAL CARD 


”600 

LET R=INT<52*RND<X>>+l 

605 

IF N < R ) * 1 THEN 600 

610 

LET N(R)=»l 


615 

GO SUB 700 


620 

RETURN 


700 

IF R<*l3 THEN 

775 

705 

IF R<»26 THEN 

755 

710 

IF R<=»39 THEN 

735 

715 

LET R=R-39 


720 

GO SUB 800 


730 

RETURN 


735 

LET R=»R-26 


740 

GO SUB 800 


750 

RETURN 


755 

LET RaR- 1 3 


760 

GO SUB 800 


770 

RETURN 


775 

GO SUB 800 


785 

RETURN 


800 

IF R»13 THEN 

861 

805 

IF R=12 THEN 

851 

810 

IF R*ll THEN 

841 

81 5 

IF Ra10 THEN 

831 

821 

LET V/aR+1 


825 

RETURN 


831 

LET V 3 10 


835 

RETURN 


841 

LET V/a| 0 


845 

RETURN 


851 

LET V»i0 


855 

RETURN 


861 

LET Va 1 


_865 

RETURN 


999 

END 
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OUTCOME 

1 


Here is a typical run of the program. The run time on my 
computer, a time-sharing system, was several hours! 


OUTPUT RANGE 
1 
2 

3 

4 


FREQUENCY 

508 

3208 

4909 

1375 


Now for the payoff table. In 10,000 games you win 508 
games if you bet on a sum in the range 6-20, 3,208 
games if you bet on a sum in the range 21-30, 4,909 
games if you bet on a sum in the range 31-40, and 1,375 
games if you bet on a sum in the range 41-50. Here is the 
table. The payoff factor for each outcome has been 
calculated to ten significant figures by dividing the ways 
to lose by the ways to win. A desk calculator helps with 
the arithmetic! 


r S TO WIN WAYS TO LOSE 

PAYOFF FACTOR 

508 

9492 

18.68503957 

3208 

6792 

2.117206982 

4909 

5091 

1.037074760 

1375 

8625 

6.272727272 


To make the payoffs whole 

numbers, round each 


number off to the nearest whole number. 


OUTCOME 

PAYOFF FACTOR 


1 

19 


2 

2 


3 

1 


4 

6 


These payoff factors can be used to compute the 

player’s winnings in the game of 5 CARD SUM. 

EXERCISE SET 7.2 ■■■■■■■■■ 

Off-line: 

1. Take the 5 CARD SUM flow chart and modify it to: 

(1) Start the player with an initial amount of 
money, 

(2) Permit the player to pick one of the four out¬ 
comes, 

(3) Permit the player to wager an amount of 
money, 

(4) Determine if the player has won, 

(5) Pay off a winning bet using the payoff factors 
as calculated from the experimental data in this 
section, 

(6) Include the replay option FLAG 99. 

In short, develop a flow chart which plays a game 

known as 5 CARD SUM/FLAG 99. 

On-line: 

2. Write a program from your flow chart for 5 CARD 

SUM/FLAG 99. Test your program. You may then 
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wish to add to your 5 CARD SUM/FLAG 99 pro¬ 
gram subroutines for BET OK, BUSTED, VALID 
INPUT, LOSING PERSONALITY, WINNING 
PERSONALITY, INSTRUCTIONS, RING BELL, 
and 50 CENT TIP. Refer to YOUR BIG WHEEL 
program which you developed in Chapter 5 for the 
construction and function of each of these sub¬ 
routines. 


7.3 BET AGAINST A PAIR 

Here’s another card game, one in which the computer 
deals a series of cards, one at a time. After each card is 
dealt, the player is asked if he wants to see another one. 
If he says “yes,” the player is gambling that the new 
card will not make a pair with any previously dealt card 
and a bet is automatically made for him. The amount bet 
is doubled each time he elects to look at another card. If 
at any time he thinks the next card may create a pair, he 
can say “I quit,” and pick up his winnings that have 
accumulated to that point. If, on the other hand, he 
looks at the card and it does make a pair, he loses 
everything. To sum up, the player must decide when it’s 
a good time to quit. Here is a flow chart of the game, 
which we call PAIR. 



PAIR/ELEMENTARY 
FLOW CHART 


As a step toward coding a program in BASIC, redraw 
the flow chart substituting the following variables for 
some of the functional descriptions. 

1. Let M hold a place for the amount of money in the 
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player’s bankroll. The initial value of M will be 100. 

2. Let B hold a place for the initial bet. 

3. Let A$ hold a place for the player’s response, YES 
or NO. Here is the new flow chart with these vari¬ 
ables inserted. 


PAIR/REVISED 
FLOW CHART 



Look at the flow chart. The first box, M = 100, can be 
encoded as LET M = 100. The next two boxes can be 
encoded using the GO SUB command. The IN¬ 
ITIALIZE CHECK LIST box will be translated as GO 
SUB 500. The DEAL FIRST CARD box will be trans¬ 
lated as GO SUB 600. Here is a listing of the two 
subroutines. 
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INITIALIZE 
CHECK LIST 


DEAL CARD 


“500 FOR I-1 TO 52 
505 LET NCI>»0 
510 NEXT 1 

_515 RETURN 

“600 LET R«INTC52*RND(X>>M 
605 IF NCR)»1 THEN 600 
610 LET N(R)■1 
615 60 SUB 700 
620 RETURN 

700 IF R<*13 THEN 775 
705 IF R<»26 THEN 755 
710 IF R<»39 THEN 735 
715 LET R-R-39 
720 60 SUB 800 
725 PRINT " OF SPADES” 

730 RETURN 

735 LET RsR-26 

740 60 SUB 800 

745 PRINT ” OF HEARTS" 

750 RETURN 

755 LET R*R-13 

760 60 SUB 800 

765 PRINT " OF DIAMONDS" 

770 RETURN 

775 60 SUB 800 

780 PRINT " OF CLUBS" 

785 RETURN 

800 IF R»13 THEN 860 
805 IF R=12 THEN 850 
810 IF Rail THEN 340 
815 IF Ra10 THEN 830 
820 PRINT R+l) 

825 RETURN 

830 PRINT "JACK") 

835 RETURN 

840 PRINT "QUEEN") 

845 RETURN 

850 PRINT "KING") 

855 RETURN 
860 PRINT "ACE") 

_865 RETURN 


The next box, GET B, is encoded as INPUT B. Follow¬ 
ing the GET B box is DEAL ANOTHER CARD, and 
this is encoded as GO SUB 600. So much for the first 
five boxes. 

Now we come to the diamond: 


DOES YES 

PAIR EXIST? 

| NO 

This cannot be encoded as one statement. We need to 
teach the computer a method or algorithm to determine 
if a pair exists. We’ll teach the computer essentially the 
same method we would use when playing the game in 
real life. When a new card is dealt, the computer will 
compare it to each of the previously dealt cards. But first 
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we must teach it to save the cards which have been dealt. 

Cards will be stored in the computer in boxes using a 
subscripted variable. We are not going to store cards in 
the form of 5 OF SPADES or 6 OF DIAMONDS, but as 
numbers between 1 and 52. How many boxes must we 
reserve in the computer’s memory to hold the cards after 
they are dealt? To answer this question we need to know 
the maximum number of cards that have to be dealt 
before a pair occurs. There are thirteen different cards in 
a suit, so it is possible to deal thirteen cards without 
having a pair occur. The fourteenth card, however, 
must match one of the previous cards. Thus, we should 
set aside thirteen boxes in the computer’s memory to 
hold cards until a pair occurs. To do this we’ll use the 
variable D for card dealt. The boxes look like this: 


D(l) 

D(2) 

D<3) 

D(4) 

D(5) 

D(6) 

D(7) 

D(8) 

D(9) 

D(10) 

D(ll) 

D(12) 

D(13) 















This array is neither a check list nor a tally list. It will be 
used merely to store numbers. Although there is no need 
to initialize the array by putting a zero in each box, a 
DIM statement is still required to reserve space in the 
computer’s memory. 

Let’s work through an example to see how the array 
of boxes is used by the computer to determine if a pair 
exists. We need the following table for reference. 

CARD FACE 



2 

3 

4 

5 

6 

7 

8 

9 

10 

J 

0 

K 

A 

CLUB 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

DIAMOND 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

HEART 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

SPADE 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


The computer deals the first card by activating the card 
dealing subroutine beginning at line 600. Suppose the 
first value of R is 45. Look at the above table. The 
number 45 corresponds to the 7 of spades. But, lacking 
the above table, the computer identifies the suit and face 
value of the card by the following two steps. The com¬ 
puter first determines the suit by comparing the value of 
R to the intervals 1 to 13, 14to 26, 27 to 39, or 40 to 52. 
In this case, the suit is spades. After subtracting 39 from 
45 to obtain a new value for R, it goes to DETERMINE 
CARD FACE routine where an R of 6 is found to 
correspond to a card with a face value of 7. After typing 
7 of spades, the computer returns to the main program 
with the value of 6 for R. Put 6 in the first box. 


D(l) 

D(2) 

D<3) 

D(4) 

D(5) 

D(6) 

D(7) 

D(8) 

D(9) 

D(10) 

D( 11) 

D(I2) 

D(13) 

6 
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The next card is dealt. Suppose the next value of R is 13. 
Since R is between 1 and 13 inclusive it must he a club. 
Furthermore, because it’s between 1 and 13, no subtrac¬ 
tion is performed. The number 13 corresponds to an 
ace. When the computer returns to the main program, it 
compares R = 13 with each number stored in the D 
array. R = 13 does not match D(l) = 6, so there is no 
pair. The computer simply stores 13 in box D(2). 


D(l) 

D(2) 

D(3) 

D(4) 

D(5) 

D(6) 

D(7) 

D(8) 

D(9) 

D(I0) 

D(ll) 

D(12) 

D(I3) 

6 

13 













Another card is dealt. R is 30. The suit is hearts. Sub¬ 
traction of 26 yields R = 4, corresponding to a card 
face of 5. On return to the main program the computer 
compares R = 4 with D(l). There is no match. It then 
compares R = 4 with D(2). Again there is no match. 
Place 4 in box D(3). 


D(l) 

D(2) 

D(3) 

D(4) 

D(5) 

D(6) 

D(7) 

D(8) 

D(9) 

D(10) 

D(ll) 

D(12) 

D(13) 

6 

13 

4 












Another card is dealt. R is 38. Subtraction of 26 yields 
12, corresponding to a king. There is no match with 
D(l), D(2), or D(3). The computer stores 12 in box 
D(4). 


D(l) 

D(2) 

D(3) 

D(4) 

D(5) 

D(6) 

D(7) 

D(8) 

D(9) 

D(10) 

D(ll) 

D(12) 

D(13) 

6 

13 

4 

12 











The above example illustrates the way in which the 
computer answers the question DOES PAIR EXIST?, 
the question which occupies the diamond in the middle 
of the PAIR flow chart at the beginning of this section. 
Here is the flow chart for this routine. 



FLOW CHART 


Later we shall substitute this fragment of a flow chart 
for the DOES PAIR EXIST? diamond in the overall 
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PAIR flow chart, but first an explanation of the steps in 
this fragment of a flow chart. The first box 


FOR I = 1 TO C 


sets up a loop which directs the computer to examine all 
boxes which have numbers stored in them. The 
diamond 



compares the value of R with the contents of one of the 
boxes. If R is equal to D(I), the computer takes the YES 
exit and tells the player that a pair exists and that he 
loses. If R is not equal to D(I), the computer drops down 
to the box 


NEXT I 


If there is no NEXT I, the loop is satisfied and the 
computer drops to the box 


c = c + i 


and increases the counter which is keeping a total of the 
number of cards that have been dealt and stored. Then 
the computer executes 


D(C) - R 


which stores the most recent value of R in the next 
available box. 

Here is the flow chart fragment inserted in the overall 
PAIR flow chart. C is a counter which keeps track of the 
number of cards dealt. 
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PAIR 

FLOWCHART 
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From this flow chart the following elementary program 
is encoded. 


PROGRAM 


-1 

2 

10 

20 

30 

40 

50 

60 

70 

80 


90 


MAIN 

PROGRAM 


INITIALIZE 
CHECK LIST 


100 
1 10 
120 
130 
140 
1 50 
160 
1 70 
180 
190 
195 
200 
210 
220 
230 
240 
250 
260 
265 
_2 70 
“500 
50 5 
510 
_ 51 5 


£ 


RANDOM 

DIM N(52>, DC1 3)4- 
LET M*100 
GO SUB 500 
LET C=1 

GO SUB 600 4- 

LET D(1)»R<- 

PRINT ,, BET'' t 
INPUT B 

GO SUB 600 4- 

FOR 1*1 TO C 
IF R*D( I ) THEN 240 4 - 
NEXT I 
LET C*C+I 

LET D(C>*R4 - 

PRINT "ANOTHER CARD” 
INPUT AS 

IF AS*"YES" THEN 210 
PRINT "YOU WIN S"B 
LET M*M+B 

PRINT "YOU NOW HAVE" 

PRINT 4- 

GO TO 20 
LET 8*2*8 

PRINT "NOW BETTING S"B 
GO TO 80 

PRINT "YOU LOSE $"B 
LET M=M-B 


RESERVE SPACE FOR AN ARRAY OF 52 BOXES 
AND AN ARRAY OF 13 BOXES 


DEAL FIRST CARD 
SAVE FIRST CARD 


DEAL NEXT CARD 


DOES PAIR EXIST? 


SAVE NEXT CARD 


M "DOLLARS." 

- SEPARATE GAMES 


PRINT "YOU NOW HAVE" M "DOLLARS." 

PRINT 4- SEPARATE GAMES 

GO TO 20 
FOR 1*1 TO 52 
LET N<I)*0 
NEXT I 
RETURN 
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“600 

605 

610 

615 

620 

700 

705 

710 

715 

720 

725 

730 

735 

740 

745 

750 

DEAL 755 

CARD 7 60 
765 
770 
775 
780 
785 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
855 
860 
_865 
999 


LET R® INT< 52*RND(X) ) ♦ 1 
IF NCR>®1 THEN 600 
LET NCR)®1 
GO SUB 700 
RETURN 

IF R<® 13 THEN 775 
IF R<®26 THEN 755 
IF R<®39 THEN 735 
LET RaR-39 
GO SUB 800 
PRINT " OF SPADES'* 

RETURN 
LET RaR-26 
GO SUB 800 
PRINT M OF HEARTS" 

RETURN 
LET RaR-13 
GO SUB 800 

PRINT '• OF DIAMONDS" 

RETURN 

GO SUB 800 

PRINT " OF CLUBS" 

RETURN 

IF R*13 THEN 860 
IF R=12 THEN 850 
IF R®11 THEN 840 
IF R®10 THEN 830 
PRINT R+i; 

RETURN 

PRINT "JACK"; 

RETURN 

PRINT "QUEEN"! 

RETURN 

PRINT "KING"; 

RETURN 
PRINT "ACE"; 

RETURN 

END GAME 1 


Here is a typical run. 
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OUTPUT 


— 10 OF DIAMONDS 
BET? 20 

6 OF SPADES 
ANOTHER CARD? YES 
NOW BETTING S 40 

7 OF DIAMONDS 
ANOTHER CARD? YES 
NOW BETTING S 80 

10 OF CLUBS 
YOU LOSE S 80 
_YOU NOW HAVE 20 DOLLARS 


— 7 OF SPADES 
BET? 10 

QUEEN OF HEARTS 
ANOTHER CARD? NO 
YOU WIN $ 10 

_YOU NOW HAVE 30 DOLLARS 


GAME 3 


— KING OF DIAMONDS 
BET? 20 

JACK OF HEARTS 
ANOTHER CARD? YES 
NOW BETTING $ 40 
6 OF HEARTS 
ANOTHER CARD? NO 
YOU WIN $ 40 

_YOU NOW HAVE 70 DOLLARS 
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Look at the output. In game 1 I lost $80 after four 
cards. In game 2 I elected to quit after two cards and 
won $10. In game 3 I quit after 3 cards and won $40. 
When would you quit? What is the chance of winning 
after five cards have been dealt? 


EXERCISE SET 7.3 


On-line: 


1 

. Take the program PAIR and modify it to play 1000 
games automatically. Use the program to determine 
the frequency with which a player loses after two 
cards are dealt, after three cards are dealt, etc. up to 
fourteen cards. To modify the program (1) delete all 
unnecessary statements and (2) implement a tally 
list. Your modified program should produce an out¬ 
put which looks like this: 

NUMBER 

LOSS 

CUMULATIVE 

CARDS 

DEALT FREQUENCY 

LOSS FREQUENCY 

2 

56 

56 

3 

114 

170 

A 

148 

318 

5 

162 

480 

6 

158 

638 

7 

146 

784 

8 

95 

879 

9 

65 

944 

10 

34 

9 78 

1 1 

18 

996 

12 

3 

999 

13 

0 

999 

14 

1 

1000 


A) Draw a graph of the above output with number of 
cards dealt along the horizontal axis, and cumula¬ 
tive loss frequency along the vertical axis. 

B) Now construct from your frequency table a payoff 
table. 

2. Take the program PAIR and instead of automatically 
doubling the player’s bet each time he elects to 
continue, have him bet one amount at the beginning 
of the game. If he elects to quit, then pay him off 
using the payoff factor for the number of cards dealt. 
You will find it helpful to store the payoff factors in 
boxes which look like this: 


P(2) 

P(3) 

P(4) 

P(5) 

P(6) 

P(7) 

P(8) 

P(9) 

P(I0) 

P(ll) 

P(12) 

P(13) 
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7.4 BLACKJACK 

Blackjack or Twenty-one is a popular card game. 
Let’s teach the computer to play an elementary version 
of the game 1 in which the user plays against the compu¬ 
ter which is known as the “dealer.” Cards are dealt to 
the player and to the dealer; the hand that totals 21 or is 
closer to 21 without going over 21 wins. Ties are con¬ 
sidered a draw. The face cards, king, queen, jack, are 
worth 10 points; 10, 9, 8, 7, 6, 5, 4, 3, 2 are worth their 
face value, and aces are worth 11. The play of the game 
will be as follows. 

The player is asked to bet and then receives two 
cards. The first one is called the “down” card and the 
second one the “up” card. Then the computer deals 
itself an “up” card. The player is then asked if he wants 
another card, or “hit.” If he does, he is dealt an addi¬ 
tional card. This process continues until he declines a 
“hit” or until he “busts,” that is, the total of the cards 
in his hand goes over 21. If the player “busts,” he 
automatically loses. If he hasn’t busted and declines 
additional cards, then he is said to “stand.” When the 
player stands, it is time for the computer to play its 
hand. It deals itself a second card, the down card. It 
continues to deal itself additional cards as long as the 
total of its hand is less than or equal to 16. Thus, if its 
total is 16 and it deals itself a 6 of any suit, it goes over 
21, that is the computer busts. If the computer busts, 
then it obviously loses. But if the computer eventually 
stands, then the totals of the two hands are compared 
and the hand with the greater total wins. If the player 
wins, the payoff is 1 to 1. That is, if he wagered one 
dollar, he picks up his original dollar plus another one. 
A tie is considered a draw. Here is a flow chart of 
Blackjack. For the sake of simplicity, I will not consider 
the betting routine at this time. The player is merely told 
whether he wins or loses. 


For a more detailed description of Twenty-one see Donald D. 
Spencer, Game Playing with Computers, Hayden. This book de¬ 
scribes many games which can be programmed. 
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BLACKJACK/ELEMENTARY FLOW CHART 



the ace of spades and its up card is the 7 of diamonds, 
which exit does it take from the diamond? 


/ COMPUTER’S 

\ TOTAL LESS THAN 

OR EQUAL TO 16? 

NO 



As a step toward coding the above flow chart in 
BASIC, let’s introduce a variable, P, to represent the 
total of the player’s cards, and another variable, C, to 
represent the total of the computer’s cards. Further¬ 
more, as in the game of 5 CARD SUM, numerical 
values from 2 through 11 will have to be assigned to the 
cards as they are dealt using the variable V. Here is a 
copy of the DETERMINE CARD FACE subroutine. 
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800 IF R 3 i 3 THEN 860 

805 IF R=12 THEN 850 

810 IF R*i1 THEN 840 

815 IF R 3 10 THEN 830 

820 PRINT R+i; 

825 RETURN 

830 PRINT "JACK"; 

835 RETURN 

840 PRINT "QUEEN"; 

845 RETURN 

850 PRINT "KING"; 

855 RETURN 

860 PRINT "ACE"; 

865 RETURN 

When an ace is dealt, the value of the card is 11. After 
860 PRINT “ACE”;, insert 861 LET V = 11. 
Likewise insert 851 LET V = 10 after the king is dealt, 
insert 841 LET V = 10 after the queen is dealt, and 
insert 831 LET V = 10 after the jack is dealt. When the 
computer executes PRINT R + 1; in line 820, the value 
of the card is R + 1. Insert 821 LET V = R + 1. The 
card face subroutine now looks like: 

800 IF R=13 THEN 860 
805 IF R*12 THEN 850 
810 IF Rail THEN 840 
815 IF R s 10 THEN 830 

820 PRINT R+i; 

821 LET V a R+1 
825 RETURN 

830 PRINT "JACK"; 

831 LET V/«10 
835 RETURN 

840 PRINT "QUEEN"; 

841 LET V 3 10 
845 RETURN 

850 PRINT "KING"; 

851 LET V=*10 
855 RETURN 

860 PRINT "ACE"; 

861 LET V»1 1 
865 RETURN 

Therefore, on returning to the main program, the value 
of V must be added to either P or C depending upon 
whether the player or computer was dealt a card. If the 
player is dealt the card, the computer must execute LET 
C = C + V. To permit the player to respond with YES 
or NO to the question HIT? when it is asked by the 


DETERMINE CARD FACE 
SUBROUTINE 


DETERMINE CARD FACE/21 
SUBROUTINE 
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BLACKJACK FLOW CHART computer, use the string variable A$. Here is the revised 
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some of the statements and have left others blank 
incomplete. Fill in the empty blanks and lines. 

1 RANDOM 

2 DIM N(52) 

10 GO SUB 500 

20 LET C =_ 

30 LET P =_ 

40 PRINT “YOUR DOWN CARD IS 

50 GO SUB_ 

60 LET P = P +_ 

70 PRINT “YOUR UP CARD IS ”; 

80 _ 

90 LET P = ._ 

100 PRINT “YOUR TOTAL IS ”; 

110 PRINT “MY UP CARD IS 

120 GO SUB_ 

130 LET C = C +_ 

140 PRINT “HIT”; 

150 INPUT A$ 

160 IF A$ = “YES” THEN 380 
170 PRINT “MY DOWN CARD IS ”; 

180 GO SUB_ 

190 _ 

200 PRINT “MY TOTAL IS”C 
210 IF C< = 16 THEN 300 

220 IF P = C THEN_ 

230 IF P > C THEN_ 

240 PRINT “I WIN.” 

250 GO TO_ 

260 PRINT “_” 

270 GO TO_ 

280 PRINT “DRAW.” 

290 GO TO_ 

300 PRINT “I TAKE ANOTHER CARD ”; 

310 _ 

320 LET C =_ 

330 PRINT “MY TOTAL IS” C 

340 IF C_21 THEN_ 

350 GO TO_ 

360 PRINT “I BUST. YOU WIN.” 

370 _ 

380 PRINT “YOUR NEXT CARD IS ”; 

390_ 

400 _ 

410 PRINT “YOUR TOTAL IS” P 

420 IF P_21 THEN_ 

430 GO TO_ 

440 PRINT “YOU BUST_” 

450 GO TO 10 
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Here is how I filled in the blanks. 

BLACKJACK 1 RANDOM 

MAIN PROGRAM 2 DIM N<52> 

10 GO SUB 500 
20 LET C*0 
30 LET P=0 

40 PRINT "YOUR DOWN CARD IS "J 
50 GO SUB 600 
60 LET P»P+V 

70 PRINT "YOUR UP CARD IS "5 
80 GO SUB 600 
90 LET P=<P+V 

100 PRINT "YOUR TOTAL IS "P 
110 PRINT "MY UP CARD IS "I 
120 GO SUB 600 
130 LET C*C+V 
140 PRINT "HIT"; 

150 INPUT AS 

160 IF AS»"YES" THEN 380 
170 PRINT "MY DOWN CARD IS "; 

180 GO SUB 600 

190 LET C»C+V 

200 PRINT "MY TOTAL IS "C 

210 IF C<~16 THEN 300 

220 IF P*C THEN 280 

230 IF P>C THEN 260 

240 PRINT "I WIN." 

250 GO TO 10 

260 PRINT "YOU WIN." 

270 GO TO 10 
280 PRINT "DRAW." 

290 GO TO 10 

300 PRINT "I TAKE ANOTHER CARD "I 

310 GO SUB 600 

320 LET C-C+V 

330 PRINT "MY TOTAL IS "C 

340 IF C>21 THEN 360 

350 GO TO 210 

360 PRINT "I BUST. YOU WIN." 

370 GO TO 10 

380 PRINT "YOUR NEXT CARD IS "I 
390 GO SUB 600 
400 LET P»P+V 

410 PRINT "YOUR TOTAL IS "P 
420 IF P>21 THEN 440 
430 GO TO 140 

440 PRINT "YOU BUST. I WIN." 

450 GO TO 10 


To complete the program, add the subroutines to in¬ 
itialize the check list and deal a card. 
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500 FOR 1*1 TO 52 BLACKJACK 

505 LET N<I>*0 SUBROUTINES 

510 NEXT I 
515 RETURN 

600 LET R*INT<52*RND<X>)+1 
605 IF N<R>*1 THEN 600 
610 LET N<R>=1 
615 GO SUB 700 
620 RETURN 

700 IF R< = 1 3 THEN 775 
705 IF R<»26 THEN 755 
710 IF R<*39 THEN 735 
715 LET R-R-39 
720 GO SUB 800 
725 PRINT " OF SPADES" 

730 RETURN 

735 LET RaR-26 

740 GO SUB 800 

745 PRINT ” OF HEARTS** 

750 RETURN 

755 LET R«R-13 

760 GO SUB 800 

765 PRINT ** OF DIAMONDS** 

770 RETURN 

775 GO SUB 800 

780 PRINT ** OF CLUBS** 

785 RETURN 

800 IF R* 13 THEN 860 
805 IF R* 12 THEN 850 
810 IF R»ll THEN 840 
815 IF R*10 THEN 830 

820 PRINT R+l! 

821 LET V*R+1 
825 RETURN 

830 PRINT "JACK"; 

831 LET V*10 
835 RETURN 

840 PRINT ••QUEEN**; 

841 LET V«10 
845 RETURN 

850 PRINT **KING**; 

851 LET V®10 
855 RETURN 

860 PRINT •*ACE M ; 

861 LET V*ll 
865 RETURN 
999 END 
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Here is a typical run of this Blackjack program. 


OUTPUT 


GAME 1 


GAME 2 


GAME 3 


— YOUR DOWN CARD IS 6 OF CLUBS 
YOUR UP CARD IS 7 OF SPADES 
YOUR TOTAL IS 13 
MY UP CARD IS 9 OF CLUBS 
HIT? YES 

YOUR NEXT CARD IS 4 OF HEARTS 
YOUR TOTAL IS 17 
HIT? NO 

MY DOWN CARD IS 3 OF CLUBS 
MY TOTAL IS 12 

I TAKE ANOTHER CARD KING OF CLUBS 
MY TOTAL IS 22 
_I BUST. YOU WIN. 

YOUR DOWN CARD IS 3 OF CLUBS 
YOUR UP CARD IS 7 OF CLUBS 
YOUR TOTAL IS 10 
MY UP CARD IS 7 OF HEARTS 
HIT? YES 

YOUR NEXT CARD IS 6 OF DIAMONDS 
YOUR TOTAL IS 16 
HIT? YES 

YOUR NEXT CARD IS 9 OF CLUBS 
YOUR TOTAL IS 25 

_YOU BUST. I WIN. 

“YOUR DOWN CARD IS 4 OF CLUBS 
YOUR UP CARD IS 10 OF DIAMONDS 
YOUR TOTAL IS 14 
MY UP CARD IS 6 OF SPADES 
HIT? YES 

YOUR NEXT CARD IS 3 OF CLUBS 
YOUR TOTAL IS 17 
HIT? NO 

MY DOWN CARD IS 7 OF DIAMONDS 
MY TOTAL IS 13 

I TAKE ANOTHER CARD 7 OF HEARTS 
MY TOTAL IS 20 
_I WIN. 

YOUR DOWN CARD IS 6 OF CLUBS 
YOUR UP CARD IS 3 OF CLUBS 


tC 


Look at the output. How many times did the computer 

win? 

On-line: 

1. Take the program BLACKJACK and add steps (1) 
to permit the player to bet, (2) to permit the player to 
signal when he wants to quit, (3) to improve the 
layout, and (4) to give the game more personality. 

2. The present BLACKJACK program does not rec¬ 
ognize a BLACKJACK, that is, any ace-10 combi¬ 
nation. Modify the BLACKJACK program so that if 
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the player’s first two cards total 21, he automatically 
wins. If the dealer also has BLACKJACK, the hand 
is a draw. Make the payoff 1.5 to 1 on BLACK¬ 
JACK if the player wins. 

3. The present BLACKJACK program assigns the 
value of eleven to an ace. Modify the program so 
that if the player is dealt one or more aces, he has the 
option of telling the computer whether to count each 
ace as 1 or 11. The player should be given this 
option each time before his hand is evaluated by the 
computer. 
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LOGOUT 

You have learned how to make the computer work for you, although 
the games you have taught it are valuable mainly as entertainment. The 
computer, however, does a great deal of important work in modem 
society and shows promise of doing even more work in the future. At 
this point, to further your understanding of computers, two kinds of 
books will be useful to you. One kind of book is the book that does not 
require access to a computer. The other kind of book is like this one, it 
assumes you have a computer to program. 

Books of the first kind, requiring little or no knowledge of program¬ 
ming, describe computer hardware and its operation, or the application 
of computers to medicine, law, science and engineering, education, 
humanities, business, machine control, transportation, etc. Books of 
the second kind require or teach you a computer language which you 
then use to solve problems in mathematics, science, or business. 

There are now many hundreds of books in the computer field. The 
books we have listed below are simply representative of the books you 
will find in your book store. We have listed these at the risk of omitting 
other, possibly better books, on the pragmatic ground that some help is 
better than none. 

While many of the publishers listed below will be familiar to you, 
more and more materials related to computer education, particularly 
materials based on the assumption you have a computer, are being 
made available by the computer manufacturers themselves. 

NO COMPUTER REQUIRED 

General Applications 

Martin, J. and Norman, A.R.D. The Computerized Society. 

Prentice-Hall, 1970. 

Sanders, D. H. Computers in Society: An Introduction to 

Information Processing. McGraw-Hill, 1973. 

Spence, D. D. Computers in Society: The Wheres, Whys, and 

Hows of Computer Use. Hayden, 1974. 

Business Applications 

Fiori, W. M. Introduction to the Computer: The Tool of 

Business. Prentice-Hall, 1973. 

COMPUTER REQUIRED OR HELPFUL 

More About BASIC 

Kemeny, J. G. and Kurtz, T. E. BASIC Programmi n g. Wiley, 

1971. 

More About Games 

Spencer, D. D. Game Playing with Computers. Hayden, 1968. 

Ahl, D. 101 BASIC Computer Games. Digital Equipment 

Corp., 1973. 

Computer Science 

Forsythe, A. I., Keenan, T. A., Organick, E. I. and Stenberg, W. 

Computer Science: A First Course. Wiley, 1969. 

Knuth, D. E. The Art of Computer Programming (7 vols.). 

Addison-Wesley, 1968 et seq. 
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Math Applications 

Sage, E. R. Problem-Solving with the Computer. ENTELEK, 
1969. 

Dorn, W. S., Greenburg, H. J., and Keller, M. K. Mathematical 
Logic and Probability with BASIC Programming. Prindle, 
Weber and Schmidt, 1972. 

Dom, W. S., Bitter, G. G., and Hector, D. L. Computer Appli¬ 
cations for Calculus. Prindle, Weber & Schmidt, 1972. 
Gruenberger, F. and Jaffrey, G. Problems for Computer Solu¬ 
tion. Wiley, 1965. 

Applications Packages 

Braun, L. (Director) Huntington Two Project. Materials availa¬ 
ble from: 

(1) Data General, Southboro, Mass. 01772 

(2) Digital Equipment Corp., Maynard, Mass. 01754 

(3) Hewlett-Packard, Cupertino, Calif. 95014 

(4) Wang Laboratories, Tewksbury, Mass. 01876 



Fun And Games With The Computer 


INDEX 


Addition 
game, 57 
operation, 12 
Algorithm, 76 
Alphanumeric string, 58 
Arithmetic expression, 12 
Ask the user: replay option, 58 
Assignment statement, 11 
Average number of guesses 
in COMPUTER GUESS 

using midpoint method, 124, 128, 141 
using random method, 116, 126, 139 
in YOU GUESS 

using midpoint method, 79 
using random method, 79 
Automatic replay option, 57 
Bankroll 

fixed amount, 207 
initial amount, 197, 207 
random amount, 207 
Bankruptcy, in BIG WHEEL, 212 
BASIC, acronym, 1 
BASIC language commands 
DATA, 179 
DIM, 96 

DIMENSION, 96 
END, 2, 5 
FOR-NEXT, 19, 20 
GO SUB, 169 
GOTO, 3, 12 
IF-THEN, 4, 12 
INPUT, 23 
LET, 6, 11 
ON-GO TO, 222 
PRINT, 1, 12 
RANDOM, 54 
RANDOMIZE, 54 
READ, 179 
REMARK, 233 
RETURN, 169 
STOP, 15 

BASIC language functions 
INT, 49 
RND, 47 
TAB, 153 
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BASIC program words, 14 
BASIC system words, 14 
Bell, ring, 56, 218 
BIG WHEEL 
bankroll, 197, 207 
bankruptcy, 212 
bet OK, 209 
busted, 212 
design of, 193 
documentation, 232 
fifty cent tip, 229 
flag 99, 204 
flawless, 228 
instruction, 225 
losing personality, 220 
payoff factor, 195 
payoff table, 195 
rules of game, 193 
spin wheel, 198 
validate input, 214 
Blackjack, 331 
Block letters, drawing, 165 
Branching, 21,34 
Bugs (See errors) 

Card dealing 

determine card face, 301 
determine suit, 300 
subroutine, 306 
Card games 

bet against a pair, 321 
Blackjack, 331 
five card sum, 307 
twenty-one, 331 
Check list 

in card dealing, 296 
in COMPUTER GUESS, 85, 93 
initialize, 94, 296 
Coins 

experimental probability, 251 
probability of head, 239 
probability of tail, 239 
theoretical probability, 253 
tossing one, 240 
tossing one: 1000 times, 243 
tossing two, 249 
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tossing two: 1000 times, 251 
TWO COIN game, 263 
Comma in PRINT statement, 48 
COMPUTER GUESS 

average number of guesses 

using midpoint method, 124, 128, 141 
using random method, 116, 126, 139 
comparing strategies, 124 
dehumanize, 131 
duplicate guesses, 81 
flag DONE, 102 
flag 99, 100 
flow chart, 83, 97 
midpoint method, 117 
one thousand games, 128, 139 
preventing duplicate guesses, 85 
random method, 108 
with counters, 103, 107 
Computer dialogue, 30 
Computer personality, 28 
Computer system words, 14 
Conditional loops, 6, 17 
Conditional statement, 4, 12 
Conditional transfer, 12 
CONTROL C, 4 
Control statement, 12 
Control variable, 17, 19 
Counter 

in COMPUTER GUESS, 103, 107 
increase, 6 
in YOU GUESS, 64 
test, 6 
initialize, 6 
mechanical, 4 
Craps 

fair game, 284 
flow chart, 283 

probability of winning, 284, 291 
program, 289 
wheel, 283 
DATA, 179 
Debugging 
longhand, 15 
play computer, 15 
see through PRINT, 10 
using computer, 10 




Index 


Diamonds 
drawing, 35 
in flow chart, 21 
Dice 

craps game, 282 
probability of outcomes 
for one die, 267 
for two dice, 273 
roll one die, 266 
roll one die: 1000 times, 267 
roll two dice, 268 
roll two dice: 3600 times, 275 
two dice table, 274 
two dice tree, 269 
DIM, 96 

DIMENSION statement, 96 
Divisibility, test for, 252 
Division, 12 
Documentation, 232 
Drawing 

block letters, 165 
diamonds, 159 
irregular design, 177 
parallelograms, 152 
rectangles, 151 
squares, 147 
trapezoid, 159 
triangles, 159 
word HELLO, 177 
word HI, 187 
word LET, 165 
Drop-down branch, 21 
Duplicate guesses, preventing, 85 
END, 2, 5 
Errors 
logical, 14 
removing errors, 7 
sentence structure, 11 
syntax, 11 
typing, 8 
Exit test, 17 
Fair game, 194 
Fifty-cent tip, 228 
Five card sum 
game, 307 
payoff table, 320 
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Flag 

DONE, replay option, 102 
in check list, 86 
in drawing designs, 185, 187 
99, end of design line, 187 

99, replay option, 61 

100, end of design, 185 
to end game, 61 

Flow chart 
definition, 21 
drawing, 34 

writing program from, 23 
Follow directions dummy, 32 
Formulas for 

number of blanks, 154 
number of stars, 160 
FOR, 19, 20 
Frequency table 

bet against a pair, 330 
COMPUTER GUESS 

midpoint method, 141, 144 
random method, 135, 138 
five card sum, 320 
two coins, 253, 258 
two dice, 274, 280 
Games 

addition, 57 
bet against a pair, 321 
BIG WHEEL, 193 
Blackjack, 331 
COMPUTER GUESS, 81 
craps, 282 
five card sum, 307 
three-message, 34 
twenty-one, 331 
TWO COIN, 259 
YOU GUESS, 47 

Generating random numbers, 47, 69 

GO SUB, 169 

Greater than, 12 

Greatest integer function, 49 

HELLO, drawing, 177 

HI, drawing, 187 

IF-THEN, 4, 12 

Inequality 

greater than, 12 
less than, 12 
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Index 


Initialize counter, 6 
Initialize check list 
in card dealing, 296 
in COMPUTER GUESS, 88, 94 
INPUT, 23 

Instructions in BIG WHEEL, 225 
INT 

converting mixed numbers to whole 
numbers, 49 
operation of, 49 
test for divisibility, 252 
test for whole number, 209 
Irregular designs, drawing, 177 
Iterations, 115 
Layout of output, 28 
Less than, 12 
List 

check, 88, 94, 296 
tally, 133,257, 267,277,317 
Logical error, 14 
Longhand bookkeeping, 15 
Longhand execution, 15 
Loops 

building, 19 
conditional, 6, 19 
features of, 17, 19 
FOR-NEXT, 19 
ingredients of, 17, 19 
nested, 150 
unconditional, 6 
Mailboxes, 5 
Memory 

reserve space, 96 
twelve box, 5 
Message, PRINT a, 1 
Midpoint method 

average number of guesses in 
COMPUTER GUESS, 136 
YOU GUESS, 79 

compared with random method, 141 
Multiple branch statement, 222 
Multiplication, 12 
Mystery number in 

COMPUTER GUESS, 81 
YOU GUESS, 47 

Negative approach in flow chart, 252 
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Nested 
loops, 150 
subroutines, 175 
NEXT, 19, 20 
NO exit from diamond, 22 
Not equal, 33 
Numerical variable, 86 
Number guessing games 
COMPUTER GUESS, 81 
YOU GUESS, 47 
Off-line, 7 

One thousand games 
bet against a pair, 330 
COMPUTER GUESS 
midpoint method, 139 
random method, 128 
craps 

ON-GO TO, 222 
On-line, 7 
Operations 
addition, 12 
division, 12 
multiplication, 12 
subtraction, 12 
Order relations, 12 
Organization chart, program, 233 
Output statement, 12 
Parallelograms 
downhill, 155 
drawing, 152 
uphill, 155 

Payoff factor, 195, 260, 308, 320, 330 
Payoff table in 

bet against a pair, 330 
BIG WHEEL, 195 
five card sum, 308, 320 
two coin, 260 
Personality 

computer, 28, 218 
losing, 220 
winning, 223 
Play computer, 15 
P.O. Box, 5 
Poker hands, 293 
PRINT 

BASIC command, 1 






Index 


blank line, 3 

comma in PRINT statement, 48 
see through statement, 10, 132 
semi-colon in PRINT statement, 29 
skip a line, 3, 29 
Printing position, 152, 189 
Probability 

experimental, 243, 252 
in BIG WHEEL, 194 
in rolling one die, 266 
in rolling two dice, 268 
in tossing one coin, 239 
in tossing two coins, 248 
theoretical, 239, 254 
Program 

check accuracy, 25, 197 
description, 1 
development, 232 
documentation, 232 
elegance, 242 
from flow chart, 21 
line number, 1, 2 
organization chart, 233 
remarks, 233 
Question mark, 23 

Quotation marks in PRINT statement, 1 
Random method 

average number of guesses in 
COMPUTER GUESS, 136 
YOU GUESS, 79 

compared with midpoint method, 141 
Random numbers, 47, 69 
RANDOM, 54 
READ, 179 
Rectangles 
drawing, 159 
in flow chart, 21 
Relations, order, 12 
REMARK, 233 
Replay options 
ask the user, 58 
automatic, 57 
Hag DONE, 102 
flag 99, 61 

how many games, 62 
RETURN, 169 
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Ring bell, 56,218 
RND, 47 
Rolling 

one die, 266 

one die: 1000 times, 267 
two dice, 268 
two dice: 3600 times, 275 
RUN, 2 
SCRATCH, 3 

See through PRINT statement, 10, 132 
Semi-colon in PRINT statement, 29 
Shuffle deck, 297 
Simulation 

one stage, 256, 281 
two stage, 256, 281 
Single subscript, 93 
Skip a line, 3, 29 
Snoopy, 146 
Spelling errors, 8 
Squares, drawing, 147 
Statement numbers, 2 
Step 

in FOR statement, 147 
negative, 149 
positive, 148 
STOP 

execution of program, 4 
in a main program, 173 
in a program, 15 
Straight through branch, 25 
Strategy 

midpoint method, 76, 117 
random method, 72, 108 
efficiency of midpoint and random method, 
124 

String variable, 58 
Subroutines 
concept, 168 
nested, 175, 306 
program organization, 168, 170 
Subscript, single, 93 
Subtraction, 12 
Summing, 311 
Syntax errors, 11 
TAB, 153 


Index 


Tabbing formulas, 154 
Tally list in 

COMPUTER GUESS, 133 
coin tossing, 257 
dice rolling, 267, 273 
five card sum, 317 
Test for divisibility, 252 
Tossing 

one coin, 239 
one coin: 1000 times, 243 
two coins, 248 
two coins: 1000 times, 251 
Transfer statements 
conditional, 4, 12 
GOTO, 3, 12 
IF-THEN, 4, 12 
unconditional, 3, 12 
Trapezoid, drawing, 159 
Triangle, drawing, 159 
Tree diagram 

five card sum, 310 
two coin, 253 
two dice, 269 
TWO COIN game, 259 
Unconditional transfer, 12 
Unfair game, 196 
Variable 

control, 17, 19 
initialize, 6 
names, 86, 93 
numerical, 86 
string, 58 
subscripted, 93 
YES exit from diamond, 22 
YOU GUESS 

ask the user: replay option, 58 
automatic: replay option, 57 
count guesses, 64 
expand interval, 69 
flag 99: replay option, 61 
flow chart, 47, 54 

how many games: replay option, 62 
midpoint method, 76 
too high-too low, 66 
random method, 72 
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